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FONTOS TUDNIVALÓ 


A jelen könyv keretén belül ismertetett kapcsolások, eljárások és programok nem tekintendők 
szabadalmi oltalom alá eső ipari termékeknek. Ezek elsősorban amatőr és oktatási célokat 
szolgálnak. A szerzők rendkívül nagy gondot fordítottak a kapcsolások, műszaki adatok és 
programok helyességére, a részletek kidolgozása során többszöri ellenőrzést végeztek. Mind- 
ez azonban nem zárja ki az esetleges hibalehetőségeket. 

Az előforduló hibákért és az ebből adódó következményekért a DATA BECKER cég sem 
szavatosságot, sem jogi felelősséget nem vállal. Az esetlegesen előforduló hibák közlését a 
szerzők hálásan fogadják. 


SOROZATINDÍTÓ 


Miután a Commodore 64 típusú személyi számítógép a mikroszámítógépek közül Magyaror- 
szágon az egyik legelterjedtebb, és így az egyik legközkedveltebb is, magától értetődik, hogy 
a gépek tömeges elterjedését követően a felhasználók, érdeklődők számára biztosítani kell 
azokat az alapvető kézikönyveket, amelyek lehetővé teszik a gépek minél sokoldalúbb 
kihasználását. 
A DATA BECKER nyugatnémet kiadó vállalat Európában az egyik legrangosabb számítás- 
technikai kiadványokat megjelentető cég, mely sorozatban foglalkozik a Commodore gépek- 
kel, a kapcsolódó perifériákkal, ill. az alkalmazott szoftverekkel. 
A Commodore gépek egyik magyarországi forgalmazója, a NOVOTRADE RT. tervbe vette a 
DATA BECKER-könyvek egy részének, mintegy 10 kötetből álló sorozatnak a magyar nyelvű 
megjelentetését. Célunk a felhasználói igények jobb kiszolgálása, a mind szélesebb érdeklő- 
dés felkeltése, valamint a lehetőségek bemutatása. 
A fordítás mellett szakembereink ellenőrzik a könyvekben bemutatott programok helyes 
működését. Ezenkívül tervezzük a könyvben szereplő programok közreadását lemezen is. 
Külön hangsúlyt helyezünk arra, hogy könyveinkben magyar nyelvű, elterjedten használt (és 
szabványok által is javasolt) szakkifejezéseket használjunk. 
A sorozat tervezett első 5 kötete a következő: 

1. A VC-1541-es lemezegység programozása 

2. Tippek és trükkök a C-64-en 

3. A C-64 belső felépítése 

4. A C-64 programozása haladóknak 

5. Gépi kódú programozás 

(A címek és a sorrend változhat!) 
Célszerűnek látszott először ezt a kötetet közreadni, mivel a Commodore 64-et nálunk 
elsósorban a vállalati adminisztrációban használják kisebb adathalmazok kezelésére. Köny- 
vünkkel a lemezkezelő műveletek mélyreható ismertetése terén mutatkozó űrt szeretnénk 
kitölteni. 
Reméljük, hogy a könyvek nálunk is kedvelt és hasznos segédeszközei lesznek a programo- 
zási munkának. 


Budapest, 1985. augusztus Rochlitz András 


ELŐSZÓ 


A VC-1541 lemezegység (drive) beszerzésével a COMMODORE típusú személyi számítógépek 
felhasználói viszonylag olcsón jutottak hozzá egy rendkívül sokoldalú, nagyteljesítményű 
háttértárolóhoz. A lemezegység által kínált gazdag lehetőségek kiaknázásához azonban a 
szakirodalom kellő mélységű tanulmányozása is szükséges. 

A könyv szerzői — Lothar Englisch és Norbert Szczepanowski — hónapokig tartó alapos 
munkával dolgozták fel a VC—1541-es készülék működtetésének minden titkát. 

A könyv kimerítő részletességgel tárgyalja a legegyszerűbb alapismereteket — mint pl. a 
programok tárolása lemezen — majd fokozatosan vezeti el az Olvasót a legbonyolultabb 
lemezkezelési műveletek elsajátításához — mint pl. a közvetlen elérésű adathalmazok szerve- 
zése, vagy az overlay (átfedés) technika. A kezdők számára hasznos segítséget nyújtanak 
majd a szemléltető programok. A gyakorlott programozók viszont feltehetően kellő elégedett- 
séggel olvassák a pontos műszaki leírásokat és örömmel tanulmányozzák a DOS (Disk 
Operating System) részletes dokumentációját. 

A könyvet rendkívüli módon gazdagítják a futtatásra kész programok, amelyeket a felhaszná- 
lónak csak be kell gépelnie és máris számos kész, használható, a lemezkezelést megkönnyítő 
segédprogram, illetve rutin birtokába jut. A könyv a BASIC nyelv bővítésein, a hasznos 
rutinokon kívül egy: teljes háztartási sésázssas rendszert, illetve egy kényelmes Disk-Monitor 
programot is tartalmaz. 


A könyv  tanulmányozásához, feladatainak megoldásához és a  VC-1541-es 
lemezegység használatához jó munkát, sőt jó szórakozást kívánunk! 


Dr. Achim Becker 


ét 


TARTALOMJEGYZÉK 


1. FEJEZET 
Bevezetés a VC-1541-es programozásába 


Ms 


nes 


1.3. 


1.4. 


BIRO a KOZÁS: A JEMSZEGYSÉGÖBŰ ; szer azításe elet es ee e E az száei Ee BSS e sala eső 


KESZ ŐNGTRETŐS TONÖSZBT 92 VA am aáz ee EE e e E ame ea gé a ő Dad aSK 
HSZ A dneokalt TÉSTDEMO JÁSZ 2 ses eák ő télen is széket Ég stb e éle ESÉST ÉGI 4 és 
TSZ MROZOK Ő KÉGETÉSÉ ev la áltááse a d SG És akk ska léts ések de kore E VÉN Van ás etet 
JANET SH 08 NŐNÁNY PATFATASTGTŐ et ze e zsésó ára eg a éa s N TSA át a Et 4 ső 


KG OKETMOK HALO HAGEL ÚTAT OTÉ S ez az kás éb rágs s áraátle esz 5 hklm ee aa kel gt Elég ő 


SALA sc RABI DEGOTAMMOK TÁFOLÁGA sag l evnel z e káá sül e kó ke Ka ket 
Ek LOADS BASK: programok: betőkóBB .. e sde s esés dett enem ebetél eat ag 
2 AGVERIEV a tárolt.brográamok ellenőr ző9e ass sszzk aeszzeregeezá a álá le érejaá ál eza 
TASKS ds programok TKÁNTÁSBA 22 szó a ez kárémasre e ezés éia álaleárá a se 
SZE EOT KÖÖÜ Drogramok DErÖNÉBB" szek ésáme ezt ém dás Etán e va ét 
HEG SÁALGÉDI KÖV programok tárolása 5: sir zts széles zs ssa ész szet sés ragya 


RGENSZBOVSÉG TONÖSZETULASÍTÁSAI vsz élsz elé áa a sak ásta SES S HSZ e e E ls 


Hat; Az utásításátvitól á lémezegyséjhoz : is zza séres ések ésézzzeet ez vise nee 
TA AKOR e MNEZT OT TTL BAT s etes stee a Se éa stat Ét Te k ba be SEBÉT A 
MERSSZ a AV NOSOSÉHOTNA IGONASÁGA GT Ká Neee ESETE rés Ae áa ee SAGA A 
1.3.4. A LOAD "$", 8 -— a tartalomjegyzék betöltése... ...................... 
MESS ALOKRATGH s GOK DOKÖTÓSB zá áá e a alban dare ász áró a éráe éa lé Ea nettel 
HOL ZA TENAM E 5 BOK ÉMÖVOZŐB I s sára ÉS ee KZV ag BÉL e áá e sál aa ee göéa e 
MEGSZ ZENET GOK MÁGONÁMÁE tesi gene szé ekre S s álS 4 4 e elgeá ő 54 E KERTET 
MG ez INTHALIZE — a lemez INiGlazálása raz ret sgádak ésaslsss s a sar z ét 
MS VÁLIDÁTE 5 a Jomez érványesítóba.  sszeses ső zzz az kégztá sz veztá tést 
MESELEK E A KOKE EB ses láatta ájeGla eft aie S ÖK se rétteket éz öle átase ötzzleáa tt 


MEGYE TETÉSE ÉNEK ze a Ne tk ák TOL A azal EA ENE E SY eE E EK á TS 


GELELE OAK GO HATOKKS MR ŐÉÍVÉ ea éé etes sk E ln ez Kés Me LÉ a és 6-bs Ész ÉSA 
SS ENE MANAT OKET ETTE ÉGÉN reá ele as élő E GLELÉAI erés éről els als br ad a ZÁGTk, isk n, ej léő tő 
1.4.3. A lemezegység és alapgép közötti adatátvitel  ........................ 
MARE SO TM DOTG BE ZS AR EEN ás KS ENE SAE Ke ete ANTAL SS OKTAT 
TES te adu a ae BALE ea ÖTELES ETT et EEEN MEL 
1.46. Elsődleges output Aátirányítása JlGÍMBZTŐ 22... smszáre eg pe áásáls a ata 
dá: SOPS TO TADlázAtos közelésö: a TÁTDATN : s save ezesrezar ás e sát eza srekáte ő 
MERESZSEG ÉTÉ AL TR DTSZ DO neg An be aes 4 HA A elnró áokle 47s d 3 dl Teő elm es e 5 8 
URA DISZAt ANgYSzéTű FAKHSZÓBB "ez ea ap szá srasá mek ád érmék ő eses éles ELÉ 
HA418. Glmkezőlés soros adattároláósál s szszásss a aáts s sáre as a ts re as kelsz sós 


MSZT OlAt AORTÖTOLÁS ez Mr á et s Eat kek ek eaz ete sad 


HETET ÁE EVET SEN KSE A BEEE S 4 BE SA a zá 40 ÉSE ee AN a ÉN ENNE ETET e 51 
SZA FETÜV-AGATÁTOKÁS SIÓNYBI see son ll a erb gs elmét d et s LAS 9 eedét, SÁS 52 
HO SAL ZAN KT TT EB ATMENT ans rsénl ealell ása le móztasá zá sáak égése HA Za et egés SÉRE ÉS 53 
1.0: AGATOKÖSZÍTÉS TÖRV tÁTOKÁShOZ : Esés szüz ae éa a gates a mk 55 
1.5.5. A lemezegység ós a.gép közötti adatátvitel... osszák e szedán e zárató e 56 
sad t 2 JANATALNVT ISZÁT ÁBA: 3 áá sz za za SA ER e STEG NK ák E élő és EA 59 
ZTA RON TÉE TNGSÉÉS s zak LSE e AES KÉT ER ESZÁ TOK ZKATÉK 4 ATSEZE E St S NETOTS ZEN 60 
1.5.8. Egy rekord keresése index-file segítségével . , sss. zz seg sees sees ess ev ss 62 
TOK NTOKOTÁOK MÓGOSKASA ész klet ÜK a ELEN vas aG B ÖAkIrAeti B ELÉ jén SZONÉÉÉST 64 
TOL VOL ATON KOZ ERT KNBÓ a zeessős a a ét aa lú ása ágya TA aknát tat szép ÉSE pe 160 
1.5.11. HÁZTARTÁSI NAPLÓ relatív adattárolással .2....1..zl szesz ss sss :. 66 
1.6. A lemezegység hibaüzenetei és ezek okai. .................. AAL TS EB ERNE t: v2 
1.7. BASIC utasítások összehasonlító áttekintése ....2.:..z. láza s SZŐ 
5 ; 
2. FEJEZET ; 
Programozás haladók rÓSZÉTE .......3... gens kae ee vek rátát 488 
2.1. A lemez blokkjainak közvetlen elérése . . . . . . . . . . . . . KS VÉLE AE ös R 82 
ész A KÖZVEHEN SIÓTÓSÚ UTASÍTÁSOK ses éa ek örs alk tén gzdlivér e szaz azattést VE Tenkes sa tás SETS közök 
dő Ök BROGÍET TERE TP NASTÁLS Nee eszst ol vlatázn bedtgj OTA atás est een ÉS tet th 84 
sé GKEPONOT ÁB E] UTASNÁL - arj rar key ló szal tanát atás ee tséte sel ÉTS mn. 85 
éa VOGKEVTTG (BNV) UTASKÁS (vésette őv ááá ár Vár hánzáeártő a KKA NT A ÖV 86 
2.24. A BIÓOK-Allócátó: (B-A) ÚtASÍtÁSB: a. sas egen ag tek edge da ele áz e d at sz ds aa JEGABA 
oz MSOKÉTŐB (BF) ÚLGGTÁS ) a rt ldek EAN eknek ek ET ÉRE BAK, Ölel s as. 88 
EOK BIGOK-RXSEUTS TB-E) "UNÁBÍTÁS az szeg ezésázáz alá vázát e set ákátsőtadá EST 41508 
e AUKÖZVÖHGT OlÓráS AKA MEZŐŐŐN e sas ab e zá rő oral erek gés TT láta azárzatatt . 89 
2.4. A DOS közvetlen elérése — a Memory utasítások EGKEZEEEKEZKEKEZ KEREKEK 90 
2.4.1. A Mernor Bend 1M-R) UTASÍTÁS: és rra dei e ésó et sazyt papa Fe hEső ítess, A ELV 90 
Ba2. ak MOT OTYENWV TS (MENY ÜTRBÁLÉLB teás ee Tante tes a trák Tsak KEEN ALÉSTÉEÉK 91 
242. A Memory Exsouts IMELUTASTÁS : ezta a várakat a aeől asd sé aiszá, ela se 92 
MET VENNÉL, erszéés aétsek ENEK S LANE SRE S KK AT LÉT CAS ez Set STKÉS 93 
3. FEJEZET 
A lemezegység és a lemez műszaki felépítése ............................... 95 
KATE ZA 1204 E TEORÓB S 2 Ra era gyak b b ALAN árt e sőr INN KE ÉG ET ELTE ET TAT 95 
Ste AR EMESÉDNSÁG KEDOSOKÁSÍ ÉRZŐ eös is eat eat ezt éa tana tésatazk, 4 ERT ő aes KE 95 
3.1.2. A DOS tértérképe (Memory Map) — ROM, RAM, I/O ......... zzz... 96 
SZAG ATNETÁSE TAT ÉLŐ GÉM EKE tarat esze e no SÉ EZ ADO s TÁ AT AS St E SNS ú. 98 
SZG VET ÉS NGNNOZTAT KARL LÁTNÉT eze ére éle esta éra k ze ra ő Be éR angolt e zŐN ESÉS 100 


ESEM K ÉN GSS TT ÉSÉT SEKS S ESÉNNÉS TT els a ete á b e érté S keRÍE aze 58 AS d KSZeSO E E NAK RTV melt 100 


TSZSA ta lom ogyzek TáNŐGB az. éteza Tel sás del ó át e ÉKES ek ÖS ék kn é ő 101 
DEE NERO GKOTTAÖYZEK TATTÁLUTNA e lg és nks kelés KER NK GYA, tatott ENE álati u saláta 102 
MEGYER OK SZET VEZÉ Ő ele ne ee tev esáta etési ez hl VA álá ge ő le rés b ral ké ae 106 
KENNEL YES E BELE SAL ES KÉSÉS NTŐL a e étek e ag hsis set s ÉBE ott E Va hl ÁG E E LAT ok EB E (1 
4. FEJEZET ; 
Programok és tippek a VC—-1541-hez . . . . ...........zzzzzz zzz... 237 
4.1. Segédprogramok . 25... glszgegessére resz lk áss zsé ese ree ek ségek ísss 237 
"4.1.1. JE OGSZÉS Mo ORramátót KÍÍTÁSA s test zá e a kelés a krka alt ee ea ksm kg SET 291 
KERETES EG EGT E ezt E S s TV TS Bala etes Tee lk Tk e EE EA n e EL EK 241 
348. BAOkUb program — a lemezek másolása... sr s szuka melette zaras be ő 245 
4.14. Az egyes file-ok átmásolása másik IemEZTFe 2... zzz ege sásáa és és 247 
4.1.5. A tartalomjegyzék beolvasása BASIC, programból ................5....... 247 
MEA DEST DEM Jerez SegÓÜDTODTAMŰAT a Ézs sedzata atása ék € BA VT ÉL eat 248 
YBL ATA ÁSSA ANE ete EN TEO E TE VO OS áett ést té 248 
ERLELEN AEK SA s E KAT Se et EA 4 MS ZO ÉS Se E SNB SE ID ÉN Úti ÉÉSTS 249 
SAKE A TIS ADO: CHANGE PTÓOÓTAN : ezések ener szessev ree éest ess tetés j jr 250 
KNKERENÉS LÁT  z E setét lel ték eset ő I ELÁSTA EKÉE E Eat FÁS BALA E SÁS ANBOL a 250 
ZSZ SÁR HÉV ÉVÁT ee esála ep ese a sag 4 sa E gey EE OKT ez SOT Aete 250 
Teo B TO AR La ORE EN EKE ESEK 250 
ZTA DISPLAY T 65... ESTETEK GT E KÉT KÉS elit elet 251 
928. ASE SHEORNM ANCS TESTE a ettek sz elsze ő áiyálé te fé ezeezmsagess geeez e s5b] 


4.3. BASIC bővítések és programok a VC—1541-es készülék kényelmes használatához 251 


4.3.1. Tetszőleges hosszúságú füzérek beolvasása lemezről .................. 201 
482 :A rekordok kényelmes előkészítóső. .. vsz rise zzll e tm s vveregy verő 254 
4.3.3. A spooling — közvetlen nyomtatás lemezről ............................. 258 
4.4. Az overlay (átfedés) technika — a programok láncolása ..................... 260 
4.5. A Mergé-BÁSIC programok ÖSSZEÍÜGJÉSB 1.0... gel y sast z ke vgá dns s va 262 
KDE DISKEMOTNTBÓT -rzsatn rezeg ákfs sévsatászá áá éb de evő Ézs ag tesen ó gl yee eu tane el viszsza ls ass 264 
5. FEJEZET : : 
A nagy CBM lemezegységek ........ . . EE öket szeg ZENÉKET ES EE EAN KE te 276 
! 
5.1. Az IEC busz és a soros busz . .. . . . . . KEP NEZ S ÉTE ÉR LN EKE É LÉK E KE A E EERŰES AS ÉS 276 
6-2. A GBM lemezégységek Összehasonlításá 0.0... .. zés sz z esszé ve dése bas b sés 277 


11 


1. FEJEZET egre 
BEVEZETÉS A VC-1541-es PROGRAMOZÁSÁBA 


1.1. Első találkozás a lemezegységgel 


Az újonnan megvásárolt gyors és nagyteljesítményű háttértároló mellett az öt fejezetből álló 
kézikönyv terjedelme feltehetően riasztóan hat az olvasóra. Aggodalomra azonban semmi 
ok, a könyv szerzői ugyanis mindent megtettek annak érdekében, hogy a kezdők számára 
is érthető, világos magyarázatokkal, lépésről lépésre mutassák be a lemezegység programo- 
zási lehetőségeit. Meglepetéssel tapasztalják majd, hogy milyen egyszerűek a lemezkezelő 
programozási műveletek jó szakirodalom birtokában. Azok a kezdők, akik eddig csak progra- 
mok tárolására használták a lemezegységet, megismerkedhetnek a további gazdag alkalma- 
zási lehetőségekkel, azok a programozók pedig, akik eddig mágnesszalagos adattárolással 
dolgoztak, megtanulhatják és éivezhetik a lemezes adattárolás szolgáltatta lényeges elő- 
nyöket. 

Annak ellenére, hogy a könyv első fejezete elsősorban a kezdők számára készült, azt 
javasoljuk, hogy a gyakorlott programozók is tanulmányozzák át, mert egészen biztos, hogy 
számukra is tudunk újat nyújtani, különösen pl. a relatív file kezelését illetően. 


1.1.1. Az operációs rendszer 


A lemezegységnek a VC-20-as és a COMMODORE 64-es alapgépekhez hasonlóan saját 
operációs rendszere van, melynek feladata a belső lemezműveletek vezérlése, illetve a géptől 
érkező utasítások végrehajtása. 

A továbbiakban az operációs rendszer jelölésére a DOS (Disk Operating System) rövidítést 
fogjuk használni. 

A DOS, melynek változatszáma CBM DOS V2.6 1541, természetesen kompatibilis a VC—20-as 
és a COMMODORE 64-es alapgépekkel. A V2.6 változat tartalmaz néhány olyan BASIC 
rövidítést is, amely alapkiépítésben a fent említett gépeken nem használható. 

A COMMODORE 64-es és a VC-20-as gépek ugyanis a BASIC 2.0 változattal ellátva kerülnek 
forgalomba, a VC—-1541-es azonban a BASIC 4.0 által tartalmazott, bővített lemezkezelő 
utasításokat is képes értelmezni, amelyek a fenti gépeken csak szimulálhatók. 

A fejezet végén felsoroljuk a BASIC 2.0 összes utasítását a megfelelő BASIC 4.0 utasításokkal 
együtt, amelyeket a nagyobb CBM gépek (4000-es, 8000-es, 600-as és 700-as sorozat) már 
alapkiépítésben képesek értelmezni. 

Természetesen a BASIC 4.0 bővítésként a COMMODORE 64-hez és a VC—20-hoz is csatolható, 
az alábbi szoftver, illetve hardver kiegészítések alkalmazásával: 


VC—20: DATA BECKER IEC-Bus és DISC BASIC 
CBM-64: DATA BECKER IEC-Bus és DISC BASIC 
SUPERTWIN 
MASTER 64. 


A DATA BECKER cég kiadványa a VCINFO tartalmazza a fenti termékek részletes leírását. 
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1.1.2. A mellékelt TEST/DEMO lemez 


Ne zavarja a kedves felhasználót, ha kezdetben semmit sem tud kezdeni a lemezegységgel 
együtt megvásárolt lemezzel. A mintaprogramokon kívül ugyanis a lemez olyan segédprogra- 
mokat is tartalmaz, amelyeket bizonyos alapismeretek nélkül nem tudunk alkalmazni. 

A könyv áttanulmányozása után azonban az olvasók többsége nemcsak a programok 
hasznos alkalmazására, hanem azok önálló megírására is képes lesz. k 
Célszerű tehát egyelőre félretenni a demonstrációs lemezt, amelynek részletes ismertetésére 
alkalmas helyen a könyvben is vissza fogunk térni. 


1.1.3. A lemezek előkészítése 


A boltban megvásárolt új lemezeket nem lehet előkészítés nélkül programok, illetve adatok 
tárolására használni. Az előkészítési folyamatot formálásnak nevezzük. Mit takar ez a foga- 
lom? A különböző típusú lemezegységek más-más mechanikus elven működnek. Így legtöbb 
esetben a különböző típusú egységeken használt lemezek nem cserélhetők fel, azaz az egyik 
típusú egység nem képes a másik által , felírt" információk , elolvasására". Ennek egyik oka 
az, hogy a lemezek információhordozó területeinek felosztása a különböző típusú egysége- 
ken eltérő. Minden lemez sávokra, és azon belül szektorokra van felosztva. A sávok és 
szektorok száma azonban az adott típusra jellemző adat. A formálás során minden szektor 
egy ún. címet kap, amellyel a DOS a továbbiakban az adott lemezterületet azonosítja. A cím 
az adott sáv, illetve szektor sorszámából tevődik össze. Az egyes szektorokra ekkor azonosító 
információként egy 2 karakterből álló kód is felíródik, amelynek alapján a DOS felismeri, hogy 
a lemez formálása a VC—1541-es egységen történt. A VC—1541-es típusnál ez a kód mindig 
2A. A szektor további területén 256 karakterből álló információ tárolható. 

A formálás utolsó lépése a tartalomjegyzék (directory) kialakítása. A későbbi lemezhasználat 
során a DOS a tartalomjegyzék alapján dönti el, hogy:egy szektor (vagy blokk — a két 
kifejezést a későbbiekben azonos értelemben használjuk) foglalt, vagy sem. A tartalomjegy- 
zék mindig a lemez 18-as sávján foglal helyet. 


1.1.4. A VC-1541-es néhány paramétere 


Lemez: 

Sávok száma: 35 

Sávonkénti szektorok száma: 17-21 (a sáv mindenkori nagyságától függően) 
Byte-ok (jelek) száma blokkonként: 256 

Blokkok száma: 683 

Szabad blokkok száma: 644 (a többit a vezezodkzeászelázaki foglalja el) 
Programok, file-ok száma lemezen- 144 

ként: 

Lemezegység: 


— intelligens periféria, saját processzorral és operációs rendszerrel 
— csatlakozás a CBM 64-es vagy a VC-20-as soros IEC buszra; egységszám: 4-15 (alapértel- 
mezés: 8) 
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1.2. A programok tárolása lemezen 


A kazettás egységekhez viszonyítva a háttértárként alkalmazott lemezegység fölénye már a 
programok tárolásánál is megmutatkozik. A lemezes tárolás sokkal kényelmesebb, mint a 
szalagos. Az előbbi lényeges előnye a számítógépbe irányuló vagy a számítógépből történő 
átvitel sebességében mutatkozik meg. Nézzünk meg erre két példát: 


Egy 3 kbyte-os program tárolásának időtartama: 
— VC—1530-as kazettás egységen 75s, 
— VC-1541-es lemezegységen 12§ 

Egy 16 kbyte-os program betöltésének időtartama: 
— VC-1530-as kazettás egységről 330 s, 
-— VC-1541-es lemezegységről 50 8. 


A lemezes tárolás további előnye az áttekinthetőség. Egy program betöltéséhez elég megnéz- 
ni a lemez tartalomjegyzékét, majd kiválasztani a kívánt programot. Bár a mágnesszalagon 
is több program tárolható, az egyes programok megkeresése rendkívül körülményes, miután 
a megfelelő szalagpozíció csak a szalag áttekercselésével kereshető meg. 

Mielőtt hozzáfognánk a következő fejezetekben közölt példák kipróbálásához, ne feledkez- 
zünk meg az új lemez formálásáról. Bár az 1.3.2. alfejezetben részletesen tárgyalni fogjuk, itt 
előzetesen bemutatjuk a lemezformálás BASIC utasítását: 


OPEN1,8,15,7"N:TESZTLEMEZ, TTL": CLOSE1 


1.2.1. A SAVE - BASIC programok tárolása 
A lemezes programtárolás BASIC utasítása alig tér el a szalagos tárolásra vonatkozó utasí- 
tástól. Tegyük fel, hogy írtunk egy BASIC programot, amelyet TESZT néven mágnesszalagra 
akarunk rögzíteni. A megfelelő utasítás: 

SAVE"TESZT" 
Ha ugyanezt a programot lemezre kívánjuk rögzíteni, az eltérés mindössze annyi, hogy meg 
kell adnunk annak az egységnek a számát, amelyen a rögzítés történik. 
Alapkiépítésben minden VC-1541-es egység a 8-as egységszámot viseli. A megfelelő utasítás 
tehát: 

SAVE"TESZT" 8 


Az utasítás végrehajtása után a NEW paranccsal törölhetjük a programot a tárból, hiszen 
az a továbbiakban a lemezről bármikor visszatölthető. 

1.2.2. A LOAD - BASIC programok betöltése 

Az egységszámtól eltekintve most ís azonos utasítást használhatunk a mágnesszalagról, 
illetve a lemezről történő programbetöltéshez. 


A megfelelő utasítás kazettás egységnél: 
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LOADTESZT" 
Lemezegységnél: 
LOAD"TESZT" 8 


Az utasítás hatására az a program, amelyet TESZT néven a lemezen tároltunk, visszatöltődik 
a tárba. 

Ha a betöltés megtörtént, a LIST paranccsal győződhetünk meg arról, hogy a program 
valóban a tárban van. 

Ha esetleg előzőleg már volt egy program a tárban, az a betöltés során törlődik. Ennek 
egyszerű oka, hogy a betöltés mindig a tár egy fix helyétől (címétől) történik, amely a BASIC 
programok rögzített tárbeli kezdőcíme. Ennek ellenére lehetőségünk van arra is, hogy folya- 
matos betöltéssel egymás után több programot összefűzzünk a tárban. Az összefűzést az ún. 
MERGE funkció végzi, melynek használatakor a betöltés kezdőcímét meg kell változtatnunk 
ahhoz, hogy a már tárban lévő program ne törlődjék. A művelet részletes ismertetésére a 
későbbiekben kerül sor. 


1.2.3. A VERIFY - a tárolt programok ellenőrzése 


Nagyon ritkán, de előfordulhat, hogy egy program tárolása közben valamilyen hiba történik 
és így a tárolt információ nem azonos a tárbelivel. Az ilyen hibák kiküszöbölésére szolgál a 
VERIFY utasítás, melynek formátuma a következő: 


VERIFY"PROGRAMNÉV" 8 
Ez az utasítás karakterenként összehasonlítja a tárban levő programot a lemezen tárolt 
programmal. Ha a két program azonos, a gép az OK üzenetet írja ki a képernyőre. 
Írjunk néhány programsort, majd gépeljük be a következő két utasítást: 
SAVETTESZT.1" 8 
(A program TESZT.1. néven a lemezre íródik) 
VERIFY TESZT.1"8 
(Megtörténik az ellenőrzés, azaz a tárbeli és a tárolt program összehasonlítása) 


A gép szinte biztosan az OK üzenetet írja ki, ugyanis tárolási hiba valóban ritkán fordul elő. 
elő. 


1.2.4. A SAVE "(9:..." — programok felülírása 


Kíséreljük meg a már lemezen lévő programunkat azonos névvel újból tárolni. A gép a FILE 
EXISTS hibaüzenetet küldi, a lemezegység piros jelzőlámpája (LED) villog és a parancs 
végrehajtása nem történik meg. A VC—-1541-es nem engedi meg, hogy két programot azonos 
névvel tároljuk a lemezen, hiszen a programok azonosítását a DOS a név alapján végzi el. 
Érthető tehát a "file már létezik" hibaüzenet. Előfordulhat azonban, hogy egy programon 
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valamilyen módosítást végeztünk és most a javított változatot ismét szeretnénk a lemezen 

tárolni. Ekkor háromféle megoldással is élhetünk: 

1. Az új változatot új névvel tároljuk. 

2. A régi változatot töröljük a lemezről, így az új programot tárolhatjuk a régi néven. 

3. A SAVE utasításban a program neve elé az "(a:" jeleket írjuk (ez egyfírott "a" betű, 
amelynek a "lába" visszakanyarodik a betű fölé). 

A harmadik megoldással tulajdonképpen egy, a már lemezen meglévő program felülírására 

kerül sor. A DOS ezt a folyamatot a következő lépésekben végzi el: 

1. Megkeresi a lemezen az első szabad blokkot és ennek címét tárolja a régi program 
tartalomjegyzékbeli bejegyzésében. 

2. Az új programot tárolja a szabad blokkon. 

3. Az új program elhelyezésének címét bejegyzi a régi helyére. 

4. A régi program által lefoglalt területeket "felszabadítja". 

Tehát valójában nem a régi program tényleges fizikai helyén történik az új program tárolása, 

hanem a lemezen lévő szabad területeken, és ezzei párhuzamosan a tartalomjegyzékben 

megtörténik a program elhelyezkedésére vonatkozó adminisztrációk kijavítása is. Ennek az 

eljárásnak alapvető következménye, hogy ha a lemezen már nincs elegendő szabad terület, 

a DOS a fenti utasítás végrehajtásakor hibaüzenetet küld, holott a régi program helyén az 

új elférne. 


1.2.5. A gépi kódú programok betöltése 


A gépi kódú programok a processzor elemi utasításaiból állnak. Ezek végrehajtásához a 
gépnek nincs szüksége az értelmező programra (interpreterre). 

A gépi kódú programok tehát nem a BASIC programok fix helyére töltődnek, hanem egy ún. 
abszolút tárcímre, amely a lemezen levő program első két byte-jában van elhelyezve. A betöl- 
tés során a gépnek fel kell ismernie, hogy BASIC vagy gépi kódú programról van szó. Hogy 
melyik program betöltése történt meg, azt a LOAD utasításban egy ún. másodlagos cím 
megadásával jelezhetjük. A következő utasítás 


LOAD"PROFI-MON 64" 8,1 


a PROFI-MON 64 nevű gépi kódú program betöltését végzi el, és a betöltés a lemezen levő 
program első két byte-jában megadott tárcímtől kezdődik, mely ez esetben decimálisan 
49152. Betöltés után a gépi kódú program indítása a SYS 49152 utasítással történhet. A fenti 
LOAD utasításban a másodlagos cím 1. Ha egy gépi kódú programot másodlagos cím nélkül 
töltünk be, vagyis úgy, mint egy BASIC programot, majd megpróbáljuk RUN paranccsal 
elindítani, a SZNTAX ERROR IN.... (szintaktikai híba) hibaüzenetet kapjuk. Ez természetes, 
hiszen az interpreter a gépi kódú programot BASIC programként próbálja értelmezni, ami 
nem lehetséges. Ennek megfelelően a LIST parancs hatására is program helyett egy zavaros 
képet kapunk. 

A DOS hátrányos sajátossága, hogy a lemez tartalomjegyzékében nem különbözteti meg a 
gépi kódú programot a BASIC programtól. Mindkettőt a PRG file-típussal jellemzi, következés- 
képpen a tartalomjegyzék alapján nem tudjuk eldönteni, hogy a betöltést másodlagos címmel 
(LOAD"..." 8,1) vagy anélkül (LOAD"..." 8) kell elvégeznünk. A felhasználónak magának keli 
megjegyeznie, hogy a lemezen milyen programokat tárol. Ha betöltés és RUN parancs után 
a SYNTAX ERROR üzenetet kapjuk, akkor feltehetően gépi kódú programot töltöttünk be 
másodlagos cím nélkül. Ekkor meg kell ismételni a betöltést, mosi már helyesen. A gépi kódú 
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program indítása nem történhet RUN paranccsal. Először meg kell határoznunk az indítási 
címet, amelyre többféle lehetőség van. Használhatjuk erre a célra a könyvben a későbbiekben 
ismertetett file-paraméter listázó programok valamelyikét. Ha megkaptuk a kezdőcímet és az 
történetesen 49152, akkor a programot a SYS 49152 utasítással indíthatjuk. 

A kezdőcím meghatározását végzi el az alábbi néhány soros program is: 


P. 1. 
1 input"programnevs: ";za$ 

290 open 1,8,2,"0:"ta$ 

30 getti,x$:if x$z"" then x$i-chr$(0) 
40 1lbsasc(x$) 

50 getHi,x$zif x$-"" then xszchr$(0) 
60 hbszasc(x$) 

70 closei 


990 ad-hbx256órilb 
90 print"start cim: "sad 


A program a RUN parancs hatására decimálisan kiírja az adott nevű gépi program kezdőcí- 
mét. 


A BASIC program működése: 

A 20-as sor OPEN utasítása megnyitja a lemezen levő gépi kódú programot soros file-ként, 
és mivel a kezdőcím az első két byte-ban helyezkedik el, ezek tartalmát GET utasítással 
beolvassa. A tároláskor azért van szükség két byte-ra, mert a tárcím 255-nél nagyobb szám 
is lehet, az egy byte-ban tárolható legnagyobb számérték pedig 255. A két byte külön nevet 
visel, az első az ún. alsó byte (LOW-byte), a második az ún. felső byte (HIGH-byte). Ha a cím 
pl. 300, akkor az LB— 44, a HB— 1. (HB-INT (CIM/256), LB— CIM — 2568HB, tehát HB a cím 
256-tal történő osztás hányadosának egész része, LB pedig a maradék.) 

A BASIC program tehát beolvassa a lemezről az alsó, majd a felső byte-ot és ezekből előállítja 
a tényleges decimális címet. Ha az utasítássorozat működése az Olvasó előtt a magyarázat 
ellenére nem lenne világos, a további fejezetekben levő részletes leírás során biztosan 
lehetősége lesz a megértésre. 


1.2.6. A gépi kódú programok tárolása 


A monitor- vagy assembler segédprogramok alatt megírt gépi kódú programok tárolása is 
ugyanezekkel a segédprogramokkal történik. A gépi kódú programok kezelését azonban 
egyszerű BASIC programmal is elvégezhetjük. A gépi utasításoknak megfelelő decimális 
kódokat DATA sorokba kell rögzíteni, majd ezeket beolvasás után POKE utasítással kell 
elhelyezni a megfelelő tárcímekre. 

Az alábbi BASIC program futtatásával betöltünk a tárba egy gépi kódú programot, a 10-es 
sorban megadott kezdőcímtől a 20-as sorban megadott címig terjedően: 


10 AA— KEZDÖCÍM 
20 EA— VÉGCÍM 

30 FORI- AA TO EA 
40 READ X 

50 POKE I,PEEK(X) 
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60 NEXT I 


A kezdőcímet és a végcímet szintén decimális értékben kell megadni, mivel a POKE utasítás 
argumentuma decimális. 

Ennek a betöltési módnak hátránya, hogy minden betöltés egy BASIC program futtatásával 
jár együtt, amelyben a READ-DATA végrehajtása meglehetősen lassú. A tényleges gépi kódú 
rutin indításához ismernünk kell a kezdőcímet, hiszen ez a SYS utasításhoz szükséges. 
Gyorsabb és elegánsabb megoldás egy olyan betöltő program használata, amely a lemezről 
közvetlenül a gépi kódú programnak megfelelő karaktereket olvassa be, majd a POKE 
utasítással az azoknak megfelelő ASCII kódokat írja be a kiválasztott tárcímre. Ahhoz azon- 
ban, hogy ezt a betöltési módot használhassuk, a gépi kódú programot utasításonként 
karakteres formában kell a lemezre kiírni. Ezt a feladatot végzi el az alábbi program: 


10 AA— KEZDŐCÍM 

20 EA-— VÉGCÍM 

30 OPEN 1,8,1"PROGRAMNÉV" 

40 HB-INT (AA/256) : LB— AA-HB4x256 
50 PRINT 34 1, CHR$(LB) :CHR$(HB); 

60 FORI-AA TO EA 

70 PRINT dt 1 CHR$(PEEK(1)); 

80 NEXT ! 

99 CLOSE 1 


A 10-es és 20-as sorokban itt is meg kell adni a tár kezdő- illetve végcímét. 

Természetesen egyszer most is le kell futtatnunk az előző BASIC programot ahhoz, hogy a 
gépi kódú program tényleg az adott tárterületre kerüljön. 

Ha a két feladatot (a gépi kódú program tárbeli elhelyezését és annak karakteres formában 
történő lemezre írását) egy lépésben akarjuk elvégezni, akkor a következő BASIC programmal 
dolgozhatunk: 


19 AA- KEZDŐCÍM 

20 EA-— VÉGCÍM 

30 OPEN 1.8,1, "PROGRAMNÉV" 

40 HB —INT(AA/256):LB — AA-HBuw256 
50 PRINT 4 1 CHR$(LB):CHR$(HB); 
60 FORI- AA TO EA 

70 READ X 

80 PRINT 4 1, CHR$(X); 

90 NEXT I 

100 CLOSE 1 

MÁRA e e BE 
ME ELÁ elek szekek eget mázsa lala 


A program egyszeri lefuttatása után a gépi kódú programot a LDOAD "PROGRAMNÉV" 8,1 
utasítással (és nem a BASIC programmal!) bármikor betölthetjük a lemezről arra a tárterület- 
fe, ahonnan kivittük. Az indítást most is a SYS utasítással kell elvégezni, amelyhez ismerni 
kell a tárbeli kezdőcímet. Ezt azonban egy betöltő programmal könnyen kiküszöbölhetjük: 
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10 IF Az O THEN A-— 1:LOAD"PROGRAMNÉV", 8,1 
20 SYS (Kezdőcím) 


A 10-es sorban elhelyezett IF utasításra feltétlenül szükség van. Próbáljuk meg IF utasítás 
nélkül elvégezni a betöltést: 


19 LDOAD"PROGRAMNÉV" 8,1 
20 SYS (Kezdőcím) 


Tapasztalni fogjuk, hogy a 20-as utasításra sohasem adódik át a vezérlés. Ha ugyanis a 
LOAD utasítást nem parancsként, hanem programutasításként használjuk gépi kódú prog- 
ram betöltésére, a betöltés után a vezérlést ismét az első BASIC sorra adja a rendszer. Az 
előbbi megoldásban, bár a vezérlés betöltés után ismét a 10-es sorra adódik, az A változó 
értéke már nem nulla, tehát a LOAD-ot a program másodszor nem hajtja végre. 

A rövid betöltő programok használatának előnye, hogy nem kell fejből ismerni a gépi kódú 
program indítási címét. 


1.3. A lemezegység rendszerutasításai 


Amint azt a korábbiakban már említettük, a VC-1541-es egység a nagyobb kategóriájú CBM 
lemezegységekhez hasonlóan saját processzorral és operációs rendszerrel rendelkező intelli- 
gens periféria. 

Az operációs rendszer, a DOS nem foglal el külön tárterületet az alapgép központi tárából, 
ami nem megszokott dolog, hiszen a legtöbb periféria egy, a központi tároa betöltendő 
operációs rendszerrel dolgozik. További érdekessége és ugyanakkor előnyös tulajdonsága 
a DOS-nak, hogy a lemezműveleteket teljesen önállóan, az alapgép igénybevétele nélkül 
hajtja végre. Minthogy azonban így a lemezműveletekre vonatkozó utasítások nem szerepel- 
nek a COMMODORE 64-es és a VC-20-as utasításkészletében, ezeket az utasításokat valami- 
lyen módon el kell juttatni a lemezegységhez. Átvitel után ezek az utasítások meghívják a 
kívánt feladatot ténylegesen elvégző DOS rutinokat. 


1.3.1. Utasításátvitel a lemezegységhez 


Minden utasítást vagy parancsot egy ún. csatornán keresztül küldünk el a lemezegységhez. 
A rendelkezésre álló 16 csatorna közül a 15-ös a parancscsatorna (vagy utasításcsatorna). 
Az adatátvitel a parancscsatornán a következőképpen történik: 

— a csatorna megnyitása (OPEN) 

— adatátvitel (PRINT) 

— a csatorna lezárása (CLOSE) 
Az OPEN utasításban mindig meg kell adni annak az egységnek a fizikai számát, amelyhez 
a parancsot küldjük, továbbá egy ún. logikai file számot, amelyhez a parancscsatornát 
hozzárendeltük. 


OPEN logikai file szám, 8,15,"utasítás" 


Ebben az utasításban a címzett egység a 8-as, a parancscsatorna a 15-ös, a logikai file szám 
értéke 1-127 közé eső tetszőleges egész szám. 
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A logikai file szám (lfn) az egységre vonatkozó átviteli utasítások (PRINT dt , INPUTáH, GET 3) 
egyértelmű hozzárendelését szolgálja. A tényleges rendszerutasításokat vagy közvetlenül az 
OPEN után kell elhelyezni, vagy egy külön PRINT utasításban, a megnyitást (OPEN) követően. 
A parancscsatorna lezárásáig tetszőleges számú rendszerutasítást kiadhatunk, de természe- 
tesen a PRINT után mindig a megfelelő logikai file számot kell beírni. 


1.3.2. A NEW - a lemez formálása 


A korábbiakban már szó esett az új lemezek előkészítéséről, vagy más néven a formálásról. 
A formálást a NEW utasítással végezhetjük el, melyet a kezdőbetűjével (N) rövidítve is 
használhatunk. 

Az utasítás formátuma: 


NEW: lemeznév, azonosító 


(Az azonosító helyett gyakran használjuk az "ID" — identifier — azonosító, angol szóból eredő 
rövidítést.) 

A lemeznév maximum 16 karakterből állhat és bekerül a lemez tartalomjegyzékének fejlécébe. 
Az azonosító (ID) két tetszőleges karakter, amelynek alapján a DOS felismeri, ha a lemezegy- 
ségben munka közben lemezcsere történt. Azáltal, hogy az ID tetszőlegesen választható, 
lehetővé válik, hogy a felhasználó a saját elképzelése szerint valamilyen rendszert alakítson 
ki a lemezei között. (Pl., ha 99-nél nincs több lemeze, célszerű a lemezek egyszerű sorszámo- 
zása.) 

Egy példa a lemez formálására: 


OPEN1,8,15,"NEW:TESZTLEMEZ TL" 


Tegyünk egy lemezt a 8-as egységbe, gépeljük be a fenti utasítást, majd nyomjuk meg a 
RETURN billentyűt. 

Az egység sajátos kerregő hangot adva megkezdi a lemez formálását, amely kb. 80 másod- 
percig tart. Formálás közben a gép szabadon használható, hiszen a lemezműveletet az 
egység saját processzora végzi. Az utasítás rövidített alakja: 


OPEN 1,8,15,"N:TESZTLEMEZ TL" 
Az alábbi két utasítás együtt egyenértékű a fentivel: 


OPEN 1.815 (a parancscsatorna megnyitása) 
PRINT 4t 1,"N:TESZTLEMEZ TL" 


Megnyitás után mindkét megoldásnál tetszőleges számú további rendszerutasítást adhatunk 
ki mindaddig, amíg a parancscsatornához rendelt logikai file-t le nem zártuk (CLOSE 1). 
A PRINT utasításokban azonban következetesen az OPEN-ben szereplő logikai file számot 
kell használnunk. 
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1.3.3. A hibacsatorna leolvasása 


A programozási munka során időnként előfordul, hogy a program nem működik megfelelően, 
vagy legalábbis nem úgy működik, ahogyan a programozó szeretné. A hibák , kellemesebb" 
fajtáját a BASIC interpreter vagy az operációs rendszer felismeri és annak okáról hibaüzene- 
tet küld a programozónak. 

A lemezműveletek közben fellépő hiba esetén általában villog az egységen a piros lámpa, a 
hiba jellegéről azonban az alapgép operációs rendszere nem tud tájékoztatni, hiszen ezeket 
a műveleteket a lemezegység processzora végzi. 

Ahhoz, hogy a hiba okát megállapíthassuk, a 15-ös parancscsatornán keresztül INPUT 
utasítással le kell olvasnunk a lemezegység által küldött hibaüzenetet. 

Minden hibaüzenet négy mezőből áll: 


1. a hiba azonosító száma (numerikus) 

2. a hiba szöveges megnevezése (karakteres) 

3. a hiba előfordulási helyének sávja (numerikus) 

4. a hiba előfordulási helyének szektora (numerikus) 


A sáv és szektor meghatározza a hiba helyét. A hibaüzenetnek ezt a 4 mezőjét 4 változóba 
kell beolvasni, ahol a második kötelezően füzér (string). Tehát az INPUT utasítást 4 változó- 
nak kell követnie. 

Példa a hibacsatorna leolvasására: 


OPEN 1.8,15 (ha még nem történt meg) 
INPUT 4 1,FN,FB$,5P,SE 
CLOSE 1 


Miután azonban az INPUT utasítás parancsként nem használható, a hibát a programon belül 
kell leolvasni. Ez gyakorlatilag annyit jelent, hogy a fenti utasításokat sorszámmal kell ellátni, 
s a programot RUN-nal indítani: 


P.2 


109 openi,8,15 

20 inputtti,hs,hm$,sa,se 

30 prinths;hm$;sa;se:z rem kiiras a kepernyore 
49 closel 


A program kipróbálásához idézzünk elő egy lemezhibát: 


OPEN 1,8,15, "NEW TESZTLEMEZ T1" 
CLOSE 1 


Ha végre akarjuk hajtani ezeket az utasításokat, a vörös színű LED villog az egységen. 
Felismertük a hibát? 

Hiányzik a kettőspont a NEW utasítás után. Gépeljük be most a hibacsatorna leolvasásához 
szükséges utasítássorozatot és indítsunk RUN-nal. Ekkor a képernyőn az alábbi üzenet 
jelenik meg: 


34 SYNTAX ERROR 0 0 


A 


"A 34 a hiba száma, ezt követi a szöveges hibaüzenet. A sáv és a szektor mező 0, mert ez a 
hiba nem igényli ezeket az adatokat. Ha hiba észlelése nélkül olvassuk le a hibacsatornát, a 


00KO0 


üzenetet kapjuk. 
Ha a lemezegység használata közben a vörös színű LED villog, mindenekelőtt az általunk 
írt utasításokat ellenőrizzük, mert így a hiba többnyire könnyen felismerhető, mint ezt a fenti 
példában is láthattuk. Az 1.6. fejezet tartalmazza az összes hibaüzenetet és a hibák okainak 
részletes leírását. 


1.3.4. A LOAD "$",8 — a tartalomjegyzék betöltése 


A DOS a tartalomjegyzékben katalogizálja a lemezen tárolt összes file-t (a programokat és 
az adathalmazokat). 

Sohase feledkezzünk meg arról, hogy a tartalomjegyzék betöltésekor elvész az a program, 
amely előzőleg a tárban volt. A tartalomjegyzéket a 


LOAD"$".8 
parancs végrehajtásával lehet betölteni és a LIST paranccsal a képernyőre íratni. 


Vegyük elő az egységhez mellékelt TEST/DEMO lemezt és töltsük be a tartalomjegyzéket a 
fenti paranccsal. Ekkor a képernyőn az alábbiak jelennek meg: 


0 4"1541TEST/DEMO " 7x.23A 
135 "HOW TO USE" PRG 
5 "HOW PART TWO" PRG 
a "VIC-290 WEDGE" PRG 
1 "C-64 WEDGE" FPRG 
4 "DOS 5.1" FRG 
11 "COPVYZALL" PRG 
? "FPRINTER TEST" FRG 
4 "DISK ADDR CHANGE" FRG 
4 "SER" FRG 
6 "VIEW BAM" PRG . 
4 "CHECK DISK" FRG 
14 "DISPLAY TES" PRG 
B. "FERFORMANCE TEST" PRG 
5 "SEGUENTIAL FILE" PRG 
15 "RANDOM FIAL" PRG 
25 "CBM-64 DEMO" FRG 
a "LEMEZFOGLALTSAG"  PkG 
65 "BETETPROGRAM" PRG 
5 "LEMEZJAVITAS" FRG 
440 BLOCKS FREE. 


(Elképzelhető, hogy az olvasó lemezének tartalomjegyzéke eltér attól, amít mi közlünk, 
ugyanis időközönként a COMMODORE cég kisebb módosításokat végez a DEMO lemezen.) 
Vizsgáljuk meg részleteiben a tartalomjegyzéket." Az első sorban levő 0 karakternek nincs 


" Valójában a képernyőn megjelenő kiírás a lemez tényleges tartalomjegyzékének csak a fejléce. L. 3.4.3. (A ford. megjegy- 
zése.) 
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különösebb jelentősége. Mellette látható a lemez neve és ID-je, amiről a formálás ismertetése 
során már szó esett. A 2A karakterek szimbolizálják a lemezformátumot. Ha ez a formátum 
nem 2A, akkor ezt a lemezt nem ezen az egységtípuson formálták, így ezzel az egységgel nem 
is használható. 

A következő sorokban a lemezen levő file-ok adatai láthatók. A file blokkhosszúsága a sor 
elején, típusa pedic a sor végén olvasható. Ezen a lemezen három különböző file-típus 
található: 


PRG - ezek a programfile-ok, vagyis a BASIC vagy gépi nyelven írt programok 

SEO - ez a soros file-ok jelölése, amelyekről a későbbiekben bőven lesz szó 

REL - ez az adattárolásnak egy másik formája, amelynek részletes ismertetésére szintén 
a továbbiakban kerül sor 


A file-ok hossza blokkban van megadva, a blokkok mindegyike 256 byte-ot foglal magában. 
Így könnyen meghatározható egy program nagysága. Az egyes blokkok 256 byte-jából 
mindössze 2 byte-ot kell leszámítani, nevezetesen azokat, amelyek az egyes blokkok láncolá- 
sához szükségesek. A 
Az utolsó sorban a lemez szabad blokkjainak száma látható. Ha a file-ok hosszát összeadjuk, 
majd ehhez hozzáadjuk a szabad blokkokat, megkapjuk a lemezen lefoglalható blokkok 
számát (664). 

Ha van nyomtatónk, a tartalomjegyzéket programlista formájában ki tudjuk nyomtatni, Ehhez 
az alábbi utasítássorozatot használhatjuk: 


OPEN 14 megnyitja a nyomtatót 

CMD 1 a vezérlést átadja a nyomtatóra" 
LIST kinyomtatja a tartalomjegyzéket 
PRINT3H1 egy RETURN érkezik a nyomtatóhoz 
CGLOSE A ismét lezárja a nyomtatót 


A nyomtatásnak értelemszerűen előfeltétele, hogy a tartalomjegyzéket LOAD "$"7.8 parancs- 
csal előzetesen tényleg betöltsük a tárba. Ha a tárban BASIC program van, az is ezzel a 
rutinnal nyomtatható ki. 

Az 13.10. alfejezetben bemutatjuk, hogyan lehet a tartalomjegyzéknek csak egy részét 
kiíratni, ha csak bizonyos programokra vagyunk kíváncsiak. 


1.3.5. A SCRATCH - file-ok törlése 


Azokat a file-okat, amelyekre a további munkánk során nincs szükségünk, törölhetjük a 
lemezről. Erre szolgál a SCRATCH utasítás. Mielőtt ezt az utasítást alkalmaznánk, okvetlenül 
győződjünk meg arról, hogy a SCRATCH utasításban megadott név a törlendő file nevével 
megegyezik-e. Ha tévedésből törlünk egy file-t, ezáltal több órás, sőt több napos munkánk 
is veszendőbe mehet. ; 
A törlő utasítás formátuma: 


PRINT 4 Ifn, "SCRATCH: FILE-NÉV1, FILE-NÉV2,..." 


" Elsődleges output egység a képernyő, alapértelmezésben minden kiiró művelet (PRINT, LIST) erre vónatkozik. A CMD 
utasítás ezt az állapotot módosítja. (A ford. megjegyzése.) 
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Több file is törölhető egyetlen utasítással. Az egy utasítással törölhető file-ok számának csak 
az szab határt, hogy a PRINT utasítás után 40 karakternél többet nem írhatunk. 
A következő példa a TESZT nevű file-t törli a lemezről: 


PEN TB 15" STESZT" 
CLOSE 1 


Ha a 15-ös csatornát előzőleg már megnyitottuk, elegendő az alábbi PRINT utasítás: 
PRINT ák 1, "S:TESZT" 


Az egész lemez tartalmát is törölhetjük. Ehhez az 1.3.10. alfejezetben leírt JOKER (a — csillag 
karakter) használata szükséges: 


PRINT d; 1, "Sa" 
Végzetes lehet a fenti utasítás hatása, ha előzőleg nem győződtünk meg arról, hogy nincs . 
számunkra egyetlen használható file sem a lemezen. 

A törlő utasítás után a hibacsatornából érkező üzenet: 

01 FILES SCRATCHED nn 00 
ahol az "nn" adja meg a törölt file-ok számát. Ez az üzenet az 1.3.3. alfejezetben lévő rutinna 
olvasható ki. 


1.3.6. A RENAME - file-ok átnevezése 


Ahhoz, hogy egy file másik nevet kaphasson, a file-bejegyzésben meg kell változtatni a file 
nevét. Erre szolgál a RENAME utasítás, amelynek formátuma a következő: 


RENAME: új név— régi név. 


Ha például a file nevét TESZT-ről TESZT.01-re kell módosítani, úgy az alábbi utasításokat 
használjuk: 


OPEN 1.8,15,"R:TESZT.01 — TESZT" 
CLOSE 1 


vagy 
OPEN 1,8,15 
PRINT 3 1, "R:TESZT.01— TESZT" 
CLOSE 1 


Egy már megnyitott, de még le nem zárt file-nak nem adható új név! 
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1.3.7. A COPY - file-ok másolása 


Ezzel az utasítással egy file egy lemezen belül másolható. Több soros (szekvenciális) file-ból 
képezhetünk így egy file-t. Ha pl. a háztartásunkban a kiadásokat havi bontásban soros 
file-okban tároljuk és ezeknek az KIAD.01, KIAD.02 stb. nevet adjuk, egyetlen utasítással 
kialakíthatjuk az év első negyedében esedékes (például KIAD.N1) kiadásaink file-ját. Mivel 
az utasítás formátuma: 


COPY: új file— régi file1, régi file2,......, 
az említett file-ok összevonását az alábbi utasításokkal végezhetjük el: 


OPEN 1.,8,15, "C:KIAD.01 — KIAD.01,KIAD.02,KIAD.03"7 
CLOSE 1 


Ezt az összefűzési módszert a programoknál nem alkalmazhatjuk. Egy lemezen belül csak 
egy programot tudunk átmásolni, és azt is csak akkor, ha a másolással kapott új program 
neve még nem szerepel a tartalomjegyzékben. 

A COPY utasítást ritkán használjuk. Ennek oka, hogy a file-nak ugyanarra a lemezre történő 
másolása lényegében értelmetlen. Ennek az utasításnak az egyetlen ésszerű felhasználása 
az az eset, amikor több soros- vagy user file-t" kapcsolunk össze adathalmazzá. Ezzel 
szemben gyakran szükség van arra, hogy egy file-t egy másik lemezre másoljunk át. Ez 
elengedhetetlenül fontos az adatok biztonságos tárolásához. Ha két lemezegységünk van, 
a COPY/ALL program segítségével a file-ok átmásolhatók az egyik egységről a másikra, de 
csak akkor, ha az egyik egység száma 9 (a COPY/ALL program rajta van a TEST/DEMO 
lemezen). 

Van persze másolási lehetőség azok számára is, akik csak egy egységgel rendelkeznek. Ez 
a felhasználói kör a 4.1. fejezetben ismertetett kiszolgálóprogramokkal az egyes file-okat, sőt 
az egész lemezt is átmásolhatja. 


1.3.8. Az INITIALIZE - a lemez inicializálása 


A DOS a lemez minden blokkjáról nyilvántartja, hogy az foglalt vagy sem. Ezt a nyilvántartást 
röviden BAM-nak nevezzük (Block Availability Map). Ha egy lemezzel éppen dolgozunk, a 
DOS a lemezműveleteket mindig az egység RAM területén lévő BAM alapján végzi el, ill. ezen 
hajtja végre a szükséges módosításokat. Ha munka közben lemezt cserélünk, ezt a DOS a 
lemez azonosítója (ID) alapján , észreveszi". Ha azonban az új lemez ID-je azonos a korábbi 
lemez ID-jével, a DOS nem figyel fel a lemezcserére. Ugyanakkor az első lemeznek a még a 
tárban lévő BAM-ja már nem azonos a most behelyezett lemez BAM-jával. Így azok az 
utasítások, amelyek nem a végrehajtás előtt olvassák be a BAM-ot a tárba (például az összes 
közvetlen elérésű utasítás), a lemezegység tárában lévő BAM-ot használják (hibásan!) a 
blokk foglaltsági állapotának adminisztrálására. 

Megszívlelendő tehát az a javaslat, hogy formáláskor sohase használjunk azonos ID-ket. 
Az INITIALIZE utasítás betölti az éppen az egységben levő lemez BAM-ját a lemeztárba. Az 
utasítás formátuma a következő: 


" L. az 1.4.2. és az 1.4.6. alfejezeteket 
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PRINT át lín, "INITIALIZE" 
vagy rövidített formában: 
PRINT dt Ifn, "I" 
Példa: 


OPEN 1.815," 
CLOSE 1 


A fent leírt súlyos hibák elkerülése érdekében célszerű minden lemezcsere után kiadni az 
inicializálási utasítást, és ez vonatkozik arra az esetre is, amikor egy program futása közben 
kell lemezt cserélni. 


1.3.9. A VALIDATE - a lemez érvényesítése 


A VALIDATE utasítás a lemez összes olyan foglaltnak minősített blokkját, amely ugyanakkor 
egyetlen ,élő" file-hoz sem tartozik, ismét felszabadítja. Ha például megnyitunk a lemezen 
egy file-t, az adatokat beleírjuk, de CLOSE utasítással nem zárjuk le, a file VALIDATE 
(érvényesítés) esetén ismét törlődik. Hasonlóan, látszólag foglalt blokkokat állítunk elő, ha 
közvetlen lemezművelettel (Block-Write) a blokkokat foglaltnak minősítjük. Ezek a blokkok 
valójában egyetlen file-hoz sincsenek hozzárendelve és így az érvényesítés során felszabadít- 
hatóak. 

A VALIDATE utasításnak van még egy fontos funkciója. Ha a lemezről SCRATCH utasítással 
törlünk egy file-t, a DOS valójában nem hajtja végre a törlést, csak a file-típust változtatja meg 
, törölt file-típusra", tehát a tartalomjegyzékben a file-ra vonatkozó bejegyzés — a file neve 
— a továbbiakban nem jelenik meg. Az ilyen módon törölt file-t egy gyakorlott programozó 
a Disk-Monitor programmal újra helyreállíthatja, hiszen a file tartalma sértetlenül ott van a 
lemezen. 

Érvényesítés során ezek a látszólagosan törölt file-ok ténylegesen törlődnek a lemezról. 

Az utasítás formátuma: 


PRINT 3 Ifn, "VALIDATE" 
vagy rövidített formában: 
PRINT at lín, "V" 
§ Egy példa: 


OPEN 18.15, "V" 
CLOSE 1 


A DOS fentiekben leírt lemezkezelő sajátosságai miatt előfordulhat, hogy egy lemezen látszó- 


lag több, mint 664 blokk van. Természetesen ez nem igaz, a lemez érvényesítése után 
értesülhetünk a tényleges helyzetről. 
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Az ellenkező eset is előfordulhat. Egy file tárolása közben a DISK FULL üzenetet kapjuk, pedig 
a tartalomjegyzék alapján kiszámolt szabad blokkokra elférne a file. Az érvényesítés ekkor 
is segít. 


1.3.10. ?x — a "Joker" 


Két joker karaktert használhatunk, a csillagot (w) és a kérdőjelet (?). A csillag a file-név egy 
meghatározott helyén azt jelenti, hogy a lemezen arra a sorrendben első programra vagyunk 
kíváncsiak, amelynek a neve a csillag előtti karakterekkel kezdődik. Egy példa: 


LOAD "TESZTa" 8 
Ez az utasítás betölti az első programot, amelynek az első öt betűje "TESZT". A 


LOAD" a" 8 
utasítás betölti a lemez első programját, mivel a csillag előtt nem adtunk meg egyéb karaktert. 
A SCRATCH utasításban a csillag más funkciót lát el. Itt nem az első file törlésére kerül sor, 
hanem az összes olyan file törlődik, melynek neve a csillag előtti karakterekkel kezdődik. Az 


OPEN 1.,8,15, "S:TESZTe" 
CLOSE 1 


utasítás például a "TESZT" betűkkel kezdődő összes file-t törli. Ezt mindenkor tartsuk szem 
előtt! Az utóbbi lehetőséget a tartalomjegyzék betöltésénél is használhatjuk. A 


LOAD "$As" 8 


utasítás a tartalomjegyzéknek csak azt a részét tölti be, amelyben a file-ok neve az "A" betűvel 
kezdődik. 

A csillag használatával a file-típusok is kiválogathatók, ha a csillag után egy egyenlőségjelet 
teszünk s ezután az első betűvel a kívánt file-típusra utalunk. Egy ilyen válogatás: 


47-S csak a soros file-okat válogatja ki 
4-P a programfile-okat válogatja ki 
4-R a relatív file-okat válogatja ki 
47-U a user file-okat válogatja ki 


Írjuk be például a 

LOAD "$a 7 P"8 
utasítást. Betöltés után a LIST parancsra csak a programfile-ok jelennek meg a tartalomjegy- 
A SORATOK utasítással például a lemezen lévő összes Soros file az alábbi utasítással is 
törölhető: 


OPEN 1.8,15, "S.6— S" 
CLOSE 1 
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A csillag előtt természetesen egy jelsorozatot is megadhatunk, s így csak azokat a soros 
file-okat töröljük, amelyeknek a neve ezzel a jelsorozattal kezdődik. 

A kérdőjellel a betűk a file-névben tetszőleges helyen ,nem érdekes"-nek minősíthetők. 
A kérdőjel funkciójának megértéséhez nézzük a következő példákat: 


A????? — keressük azokat az 5 helyértékű file-neveket, amelyeknek az első 
betűje "A", 
TIT TEST — keressük azokat a 8 helyértékű file-neveket, amelyeknek az utolsó 


négy betűje "TEST". 


A csillag és a kérdőjel kombinálása is megengedett. Ebben az esetben ne feledkezzünk meg 
arról, hogy a csillag után sem betű, sem pedig kérdőjel nem következhet, miután ezek a 
kombinációk értelmetlenek. Nézzük meg a csillag és a kérdőjel társításának két példáját: 


999944 — keressük az összes olyan file-nevet, amelynél a pont előtt 4 tetszőle- 
ges karakter áll. 

TEST.??ak — keressük az összes olyan, legalább 7 helyértékű file-nevet, amelyek- 
nél az első 5 karakter TEST.-ot tartalmaz. 

TEST-??7014-S — keressük az összes olyan, legalább 9 helyértékű soros file-t, amely- 
nek a nevében az első 5 helyértékben TEST-, a 8. és 9. helyértéken 
pedig 01 áll. 


1.4. A soros adattárolás 


A lemezegység nemcsak programtárolásra használható. Előbb-utóbb minden kezdő haladó- 
vá válik és nagy adatmennyiségek kezeléséhez akar saját programokat Írni. Bár a soros 
adattárolás nem a leggyorsabb, de mégis a legegyszerűbb adatkezelési eljárás, ami főleg a 
,közép-haladók" számára fontos. Ez az adatszervezés hasonló a mágnesszalagos soros 
adatfeldolgozáshoz, melynek logikai felépítése lehet pl. a következő: 


1. a program betöltése 

2. a teljes adatállomány betöltése a tárba 

3. adatok kezelése a tárban (változtatás, törlés, hozzátoldás) 

4. a felújított állomány tárolása háttértárolón (szalagon, lemezen) 
5. kilépés a programból 


Ezt a szervezési módot használva a maximális adatmennyiség a gép tárkapacitásának 
függvénye, miután egy soros file-ban levő állomány egyes adatai közvetlenül nem módosítha- 
tóak, vagy törölhetőek. Ehhez az egész file beolvasása, megváltoztatása és újratárolása 
szükséges." Lemezes tárolás esetén a file betöltése és tárolása gyorsabb a szalagos tárolás- 
nál. Ez a lemezes adattárolás egyik előnye. 

Másik nagy előnye, hogy a lemezen tárolt soros adatállomány bővítéséhez nem szükséges 
az egész file beolvasása. A lemezes soros file-t ugyanis megnyithatjuk bővítésre is (APPEND- 
re), ami kazettás egységen nem lehetséges. 


" A módosítás megoldható úgy is, hogy folyamatos feldolgozással átmásoljuk a megváltoztatott adatokat egy másik file-ba, 
de ez nagy adathalmaznál rendkívül lassú eljárás. (A ford. megjegyzése.) 
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A felhasználók számára fontos tény, hogy az eddig kazettás szalagon soros állományokkal 
dolgozó programok egyszerűen átalakíthatóak lemezen dolgozó programokká. Ehhez csak 
a megfelelő OPEN utasítások megváltoztatása szükséges. 


1.4.1. A soros tárolás alapelve 


A soros file több rekordból tevődik össze, amelyek mezőkre tagolódnak. Egy címfile példáján 
ezt könnyen megérthetjük, amelyben egyes címek képezik a file rekordjait. Egy címtétel több 
mezőből áll (vezetéknév, keresztnév stb.). A file szerkezete az alábbiak szerint ábrázolható: 


1. MEZŐ: 2. MEZŐ: 3. MEZŐ: 1. MEZŐ: 2. MEZŐ: 3. MEZŐ: 


1. REKORD 2. REKORD 


FILE 


Egy file rekordjai ugyanúgy, mint a rekordokban a mezők, egymást követve, vagyis sorban 
helyezkednek el. A mezők, s így a rekordok is különböző hosszúságúak lehetnek. Pl. az 
1. rekord 1. mezőjének hossza meghaladhatja a 2. rekord 1. mezőjének hosszát. Ez a 
lehetőség abból adódik, hogy a mezőket egy RETURN karakter választja el egymástól, amit 
a PRINT utasítás állít elő és az INPUT utasítás ismer fel. Adatkezeléskor általában minden 
mezőhöz egy változót rendelünk, ezeket a PRINT/INPUT utasításokkal írjuk, olvassuk. Egyet- 
len utasítással azonban egy egész rekordot is olvashatunk vagy írhatunk. Ennek feltétele az, 
hogy az összes rekord azonos hosszúságú legyen, miután a programon belül ezeket a 
rekordokat speciális utasításokkal mezőkké kell felbontani. Ez csak akkor lehetséges, ha a 
rekordon belül minden mező kezdőpozícióját pontosan ismerjük. 

Az elmondottakat egy telefon-file bemutatásával szemléltetjük. Tegyük fel, hogy minden 
előfizetőről három adatot tartunk nyilván: 


" 1. MEZŐ: Vezetéknév 
2. MEZŐ: Keresztnév 
3. MEZŐ: Telefonszám 


A file a következőképpen nézhet ki (a RETURN helyett egy - jelet írunk): 


Karakterek: 11111111112222222222333333333344444444445 
12345678901234567890123456789012345678901234567890 
Adat: SZABO -- ANNA -- 236 4 BIRO -H PÁL -- 1213--KOVÁCSI -- ÉVA -- 65432 -k . . . 


Mint látható, a különböző hosszúságú mezőket a rekordon belül egy RETURN választja el 
egymástól. Ez a RETURN egy PRINT utasítással történő átvitelkor az adatok mögé kerül, 
hacsak az említett PRINT utasítást nem pontosvessző (;) követi, amely a RETURN-t elnyomja. 
Az első INPUT utasítással a rekord első karakterei bekerülnek egy változóba, egészen a 
RETURN-ig. A következő INPUT beolvassa a következő mezőt a következő változóba ismét 
a RETURN-ig stb. Ezután az ízelítő után az 1.4.2. alfejezetben minden olyan programozás- 
technikai eszközt részletesen elemzünk, ami a soros adatállományok kezeléséhez szükséges. 
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1.4.2. A soros file megnyitása 


Minden file-t létrehozás előtt meg kell nyitni. A soros file-t megnyithatjuk írásra, olvasásra és 
bővítésre. Ha írásra nyitjuk meg a DOS az alábbi műveleteket végzi el: 


1. ellenőrzi, hogy a lemezen van-e már ilyen nevű file, ha van, a rendszer a FILE EXISTS 
hibaüzenetet küldi, 

2. a hiba kiküszöbölése után a megfelelő file-bejegyzést beírja a tartalomjegyzékbe. Listázás- 
kor, ha egy file-t megnyitottunk, de nem zártunk le, a tartalomjegyzékben a file-típus előtt 
egy csillag jelenik meg, 

3. keres egy szabad blokkot, amelyben az első adatok tárolhatók. A címeket (sáv és szektor) 
a file-bejegyzésben tárolja, 

4. a file által lefoglalt blokkok számát 0-ra állítja, mivel a file még egyetlen blokkot sem 
tartalmaz. 


A létrehozott, adatokkal feltöltött soros állományt módosíthatjuk vagy bővíthetjük. Az OPEN 
utasításban határozzuk meg, hogy a file-t milyen célra akarjuk megnyitni. Az OPEN utasítás 
formátuma a következő: 


OPEN Ifn,8.,sa, "file-név, file-típus, mód" 


Ha azt akarjuk, hogy egy file-ra vonatkozó PRINT utasítás csak egy RETURN -t írjon a file-ba, 
a logikai file-számot 1-127 között kell megválasztani. Ha ugyanis a logikai file-szám nagyobb 
127-nél (128-255), a PRINT utasítás minden egyes RETURN után még egy , soremelés" 
(LINE-FEED) karaktert is továbbít. Ez például olyan nyomtatóknál szükséges, amelyeknél 
RETURN után nincs automatikus soremelés. 

Az "sa" az ún. másodlagos cím (secondary address); ez jelöli a lemezegységnek azt a 
csatornáját, amelyen keresztül az adatok továbbítódnak: A 0 és az 1 másodlagos címet az 
operációsrendszer a programok tárolásához és betöltéséhez tartja fenn. A 15-ös másodlagos 
cím az utasítás- és a hibacsatornára vonatkozik. Ha egyidejűleg több file-t nyitunk meg, a 
logikai file-szám mellett a másodlagos címeknek is feltétlenül eltérőeknek kell lenniük, mert 
egy file-ra nézve mindig csak egy adatcsatorna lehet illetékes. Ha azonban egy file-t olyan 
másodlagos címmel nyitunk meg, amellyel előzőleg már megnyitottunk egy másik file-t, úgy 
az első file lezárul. Gyakran szokták figyelmen kívül hagyni azt a feltételt, hogy minden 
egységre maximum három csatorna nyitható meg. A relatív file-ok kezeléséhez a DOS-nak 
azonban egyidejűleg két csatornára van szüksége. Ennek megfelelően tehát az alábbi 
kombinációkról lehet szó: 


— 1 relatív és 1 soros file, 
— 3 soros file. 


A file-név megadásakor ne feledkezzünk meg annak ellenőrzéséről, hogy ilyen nevű file 

létezik-e már a lemezen. Ha már létező file-t akarunk írásra megnyitni, a SAVE utasításhoz 

hasonlóan itt is az (2 jelet kell a file-név elé beírni, amit egy kettőspont követ. Például: 
OPEN 1,8,2,"(2:CÍMEK, SW" 


A file megnyitásakor mindig meg kell adni a file-típust. Az OPEN utasításban a file-típusok 
rövidítése a következő: 
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S — soros file, 
U — user file, 

P — programfile 
R — relatív file. 


A user file-ok olyan soros file-ok, amelyek a tartalomjegyzékben USR file-típussal szerepelnek, 
és tulajdonképpen nem is file-ok. Ez a file-típus jól alkalmazható azokban az esetekben, 
amikor lemezen kell tárolni az egyébként képernyőn megjelenítendő, vagy nyomtatásra 
kerülő szövegeket (BASIC lista vagy tartalomjegyzék). Ennek az eljárásnak a leírása az 1.4.6. 
alfejezetben olvasható. 

Az utolsó paraméter (modus) határozza meg az adott csatorna használatának mikéntjét. Az 
alábbi négy lehetőség áll rendelkezésre: 


-  W- egy file írása (WRITE — 1.4.3. alfejezet) 
R - egy file olvasása (READ -— 1.4.4. alfejezet) 
A — egy soros file bővítése (APPEND - 1.4.4. alfejezet) 
M - egy, még nem lezárt file olvasása (1.4.5. alfejezet) 


Nyissuk meg írásra a "SEOU.TEST" nevű soros file-t: 
OPEN: 1.827SEGÜTEÉST SW" 


Ha ezután a LOAD "$" 8-cal a tartalomjegyzéket betöltjük és kilistázzuk, látunk a file-típus 
előtt egy csillagot, ami arra utal, hogy a file létezik, de nem használható, mert elfelejtettük 
lezárni: 


0 SEGU.TEST 4SEO 


A továbbiakban sajnos már nem is tudjuk lezárni. Jegyezzük meg tehát, hogy egy file 
megnyitása után, a tartalomjegyzék betöltése előtt elengedhetetlen a file lezárása! 

Ha egy file-t megnyitottunk, megnyíithatjuk a parancs/hibacsatornát is. A hibacsatorna 
lezárása után azonban minden nyitott file automatikusan lezáródik. Erről nem szabad 
megfeledkezni! 


OPEN 1,8,2,"SEOU.TEST, S .R" — egy soros file megnyitása olvasásra 

OPEN 2.8.3,"5EOU.TESTUW"  — egy userfile megnyitása írásra 

OPEN 3.8.4,"TEST,P,R" — egy programtile megnyitása olvasásra 

OPEN 4.8,5,,"5EOU.TEST SA" — egy soros file megnyitása bővítésre 

OPEN 5.8,6, UGYFEL.1983,5,M" — a felhasználói file nem szabályosan zárult le, így újra kell 
olvasni. 


1.4.3. A lemezegység és az alapgép közötti adatátvitel 


Egy írásra megnyitott file-ba PRINT utasítással írhatunk adatokat. A PRINT utasítás végrehaj- 
tásával a DOS egy RETURN karaktert is továbbít, amely az adatok elválasztásához szüksé- 
ges. Az alábbiakban egy file megnyitására, írására és lezárására mutatunk példát. Az 
utasítások közvetlenül (sorszám nélkül) is használhatók, Így egymás után begépelhetjük, 
majd egyenként végrehajthatjuk őket. Nyissuk meg a TEST.1 nevű file-t írásra: 
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OPEN 182 TEÉST.1 SW" 


A lemezegységen kigyullad a vörös színű LED. Ez azt jelenti, hogy egy file megnyitott 
állapotban van, vagyis írhatunk bele adatokat. Példaként az előző címfile egy rekordját 
(amely négy mezőből áll) írjuk fel lemezre az alábbi PRINT 4- parancsokkal: 


PRINT 4 1,/KOVACSI" 

PRINT 46 1,"ANNA" 

PRINT 4 1,/"POZSONYI UTCA 7" 
PRINT 4 1,/5900 BEKESCSABA" 


A végrehaítás után a file-t a CLOSE 1 paranccsal lezárhatjuk. A vörös színű LED ezzel 
egyidejűleg kialszik. Ha vissza akarjuk olvasni a lemezről ezeket az adatokat, a file-t olvasásra 
kell megnyitni (R). Mivel az INPUT utasítás parancsként nem használható, egy kis programot 
kell írnunk: 


P. 3. 


10 open1,B,2,"teszt.1,s,r" 
20 inputtti,vn$ 

30 inputtti,nn$ 

49" inputti,ot§ 

50 inputt$i1,or$ 

60 clogsel 


70 print"vezeteknevs: "gvns 
90 print"keresztnev: "annt 
909 print"lakascím, utca: ":at$ 
1090 print" shszam: "zjor$ 


A program magyarázata egyszerű: 


10-es sor a TEST.1 file-t megnyitjuk olvasásra 
20-50. sor az adatokat visszaolvassuk a felírás sorrendjében 
60-as sor a file-t lezárjuk 


70-100. sor " az adatokat megfelelő kísérőszöveggel együtt 
kiírjuk a képernyőre. 


Ha ezt az utasítássorozatot begépeljük és RUN-nal indítunk, a képernyőn megjelennek a 
file-ba előzetesen beírt adatok: 


vezetéknév: KOVACSI 
keresztnév: ANNA 
utca: POZSONYI UTCA 7 


irányítószám/helység: 5900 BEKESCSABA 


Az adatok beolvasása négy INPUT utasítást igényel, miután egy rekord négy mezőből áll. Ha 
például egy olyan file-t kell tárolnunk, amelynek rekordjai 20 mezőből tevődnek össze, a 
beolvasáshoz 20 INPUT utasításra van szükség. Ciklusutasítás használatával a feladat 
lényegesen leegyszerűsíthető: 


TE 
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P. 4. 


19 open1,8,2,"teszt.1,s,r" 
20 forizi to 4 
30 inputtti,d$(i) 


40 next 

54 closel 

69 print"vezeteknev: ":d$(1) 
70 print"keresztnev: ":d$(2) 
890 print"lakascim,utcas: ":;d$(3) 
99 print" ,hszam: ";d$(4) 


A négy füzér (string) helyett egy négy elemű indexes változót használtunk. Ne feledkezzünk 
meg arról, hogy a BASIC 2.0-nál az index legfeljebb 10 lehet, ha a tömböt DIM utasítással 
előzetesen nem deklaráltuk nagyobb indexhatárral. Ha a példánkban egy 20 mezős rekordot 
akarunk beolvasni, a tömböt először deklaránunk kell a DIM D$(20) utasítással. A beolvasás 
és kiírás rövidítésére még egy további lehetőség is rendelkezésre áll: a billentyűzetről történő 
adatbevitelnél az INPUT utasítással több, egymástól vesszővel elválasztott változót beolvas- 
hatunk. Például: 


INPUT VN$,NN$,TE 

Ennél az utasításnál a három változót például az alábbiak szerint kell beírnunk: 
MOLNAR LAJOS, 7465 

A beolvasott adatokat ekkor a 
PRINT VN$.NN$ TE 


ismét megjeleníti a képernyőn. 

A képernyőre illetve a soros file-ra vonatkozó PRINT utasítások között az egyetlen különbség, 
hogy az utóbbinál a füzéreket idézőjel közé zárt vesszőkkel kell elválasztani egymástól. Ha 
például az említett változókat egy file-ba kell beírni, úgy ehhez a PRINT utasítást az alábbiak 
szerint kell módosítani: 


PRINT dt 1,VN$""NN$", "TE 


A numerikus változókat csak vesszővel kell elválasztani a többi változótól. Ebben az esetben 
az adatok beolvasásához az 


INPUT dt 1 VN$.NN$, TE 


utasítást használjuk. Miután azonban az INPUT utasítással bevihető karakterek száma 
maximálisan 88, ez korlátot szab az ilyen típusú adatbevitel használatának. Ha egy rekordon 
belüli mező hossza meghaladja a 88 karaktert, a beolvasáshoz másik utasítást kell alkalmaz- 
nunk. Ez a GET utasítás, amely az egyes karaktereket külön-külön olvassa be. Tegyük fel, 
hogy egy olyan rekordot akarunk olvasni, amely egyetlen 100 karakter hosszúságú mezőből 
áll. Ez a rekord az alábbi rutinnal olvasható be a lemezről egy füzérbe: 
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10 OPEN 1.8........... 
20 D$—"" 

30 FORI-1 TO 190 
40 GET4-1,X$ 

50 D$—-D$-4XS 

60 NEXT I 

70 GET4H1,X$ 

80 CLOSE 1 


A fenti utasítássorozat lefutását követően a D$ füzér egy 100 karakteres rekordot fog 
tartalmazni. Minden soros file megnyitása után a DOS beállít egy mutatót (pointert), amely 
mindig az eddig olvasott adatok utáni karakterre mutat. Tegyük fel, hogy a 100 karakteres 
rekordot lezáró pontosvessző nélkül írtuk be PRINT-tel a file-ba, így a rekordot egy RETURN 
zárta le. A 100. karakter olvasása után a mutató ezen a RETURN karakteren áll. A következő 
GET utasítás a 70. sorban tehát azért szükséges, hogy ezt a RETURN-t is beolvassuk. Így a 
következő rekord olvasására szolgáló első GET utasítás nem a RETURN-t, hanem valóban 
a következő rekord első karakterét éri el. 

A fenti példában feltételeztük, hogy a file rekordjainak hossza állandó, 100 karakter. Általá- 
ban azonban a soros file-ban szereplő rekordok hossza nem konstans. Ha a rekord maximá- 
lis hosszúsága túllépi a 88 karakteres input határt, az adatbevitelt GET ciklussal! kell megszer- 
vezni, amely az elválasztó RETURN-t rekordvégként észleli. 

Egy ilyen rutin a következőképpen néz ki: 


10 OPEN 1.8,.......... 

20 S$z"" 

30 GET4H1,X$ 

40 IF X$- CHR$(13) THEN 80 
50 5$—S$-HX$ 

60 IF ST c 564 THEN 30 

70 CLOSE 1:END 

80 PRINT S$ 

90 GOTO 20 


A program egy változó hosszúságú rekordokból álló file olvasását és a képernyőn történő 
megjelenítését végzi el. 

Ha el akarjuk kerülni a 88 karakternél hosszabb rekordokkal kapcsolatos problémáinkat, 
célszerű felosztani a rekordot több részre, majd beolvasás után a részeket összekapcsolni. 


1.4.4. A soros file bővítése 


Ha a soros file bővítését úgy kellene elvégeznünk, hogy először beolvassuk a teljes adatállo- 
mányt a tárba, ott kibővítjük, majd a bővített állományt visszaírjuk a lemezre, ez bizonyára 
rendkívül sok időt venne igénybe. A DOS szerencsére kényelmes lehetőséggel szolgál a soros 
file bővítésére anélkül, hogy a file-t előzetesen be kellene olvasni a tárba. A file-t ekkor 
APPEND-re (bővítésre) kell megnyitnunk, azaz az OPEN utasításban az A üzemmódot kell 
választanunk. 

Gépeljük be a következő utasításokat: 
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OPEN 1,8,2,/TEST.2.5,/W" 
PRINT 4 1,"1.REKORD" 
CLOSE 1 


Ezzel egy 1 rekordot tartalmazó soros file-t állítottunk elő. Bővítsük most a file-t további két 
rekorddal: 


OPEN 1,8.2,"TEST.2.5 A" 
PRINT dt 1,72.REKORD" 
PRINT 36 1,73.REKORD" 
CLOSE 1 


A TEST.2 file most már három rekordot tartalmaz. Ezt az alábbi programmal ellenőrizhetjük: 
P. 5. 


100 open 1,8,2,"test.2,8s,r" 
119 forisi to 3 

120 inputtt1,ds$ 

150 print ds4 

140 close 1 


A fenti program beolvassa a rekordokat a file-ból és megjeleníti őket a képernyőn. 
Az A üzemmód soros adatszervezés esetén gyors adatbővítést (file-bővítést) tesz lehetővé, 


1.4.5. A soros file lezárása 


A CLOSE utasítással lezárhatjuk a már megnyitott file-okat. Az utasítás formátuma a követ- 
kező: 


CLOSE Ifn 


Az Ifn paraméter a megfelelő OPEN utasításnál megadott logikai file-szám. Amennyiben több 
file-t kell lezárnunk, minden egyes file-hoz egy külön CLOSE utasítást kell használni. Az utolsó 
file lezárásával a lemezegységen kialszik a vörös színű LED. Adatátvitelnél az adatok egy 
csatornán keresztül érkeznek a lemezegységhez. Ez a csatorna egy tárolón belüli tár (puffer), 
ahol a géptől érkező adatok közbenső tárolása történik. A pufferben lévő adatok csak akkor 
továbbítódnak a lemezre, ha ez a puffer már megtelt. 

A file lezárásakor a lemezre íródnak azok az adatok, amelyek még a pufferben voltak. Egy 
nem lezárt file nem teljes, mivel a puffer nem ürült ki, így a DOS a file-t szabálytalannak 
minősíti és nem engedi READ-re megnyitni; ilyen kísérletnél a WRITE FILE OPEN üzenetet 
küldi. 

Persze rendkívül bosszantó lenne, ha egy adathalmaz véglegesen elveszne a felhasználó 
számára, ezért a DOS tartalmaz egy lehetőséget az ilyen jellegű hibák áthidalására. A sza- 
bálytalannak minősített file-ok olvasására szolgál az M üzemmód. Célszerűbb megoldás 
természetesen a file-ok szabályos lezárása. 

A következő program egy szabálytalan file tartalmát , átmenti" egy normál file-ba: 
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100 input"eredeti file";u$ 
1109 input"cel file "gt 
120 open 1,8,2,u$t",s,m" 
130 open 2,8,5,z$t",s,w" 
140 inputHi,z$ 

150 printt2,x$ 

160 if stC264 then 140 

170 close 1:close 2 

189 open 1,8,15,"s:"tu$ 
199 close 1 


A program végén a rossz file törlődik. 


1.4.6. Elsődleges output átirányítása lemezre 


Minden parancsként (sorszám nélkül) vagy utasításként kiadott LIST vagy PRINT alapértel- 
mezésben a képernyőre vonatkozik, azaz az output a képernyőn jelenik meg. 
Ezt az állapotot megváltoztathatjuk CMD utasítással, melynek formátuma: 


CMD Ifn, 


ahol az Ifn egy logikai file-számot jelöl. Az utasítás használata előtt az adott logikai file-t meg 
kell nyitni. 

Elsődleges output egységként használhatjuk a lemezegységet is azzal a megszorítással, hogy 
a lemezen megnyitott file-nak ún. USR (user) típusú soros file-nak kell lennie azért, hogy a 
DOS meg tudja különböztetni a normális soros file-októl. 

A következő parancsokkal a tárban lévő programot szöveg-fíle-ként tároljuk a TEST.LIST 
nevű soros USR típusú lemezes file-ban: 


OPEN 1,8,2,/TEST.LIST,UW" 
CMD 1 

LIST 

CLOSE 1 


A CLOSE 1 utasítás végrehajtásakor megszűnik a CMD utasítás hatása, azaz az elsődleges 
output ismét a képernyő lesz. 

Mire használhatjuk ezt a lehetőséget? 

Tegyük fel, hogy egy szövegfeldolgozó programmal olyan dokumentációt szeretnénk készíte- 
ni, amelyben mintaprogramok is szerepelnek. Eddigi tudásunk alapján a feladatot úgy 
oldanánk meg, hogy a szövegrészeket lemezen tároljuk, a mintaprogramokat LIST parancs- 
csal kinyomtatjuk és végül a megfelelő szövegrészekbe a programlistákat kézzel beszerkeszt- 
jük. Sokkal kényelmesebb megoldás azonban, ha a programokat is szövegként tároljuk, 
hiszen így a szövegszerkesztő programmal nyomtatásra kész dokumentációt állíthatunk elő. 
Arra is van magyarázat, hogy miért van szükségünk az USR file-típusra, miért nem kezelhetjük 
a programfile-t szövegként. A programok tárolása ugyanis nem karakteresen történik, hanem 
utasításszimbólumokkal (ún. tokenekkel), amelyeket a szövegszerkesztő program nem ismer. 
Az alábbi rutinnal visszaolvashatjuk és kiírathatjuk a lemezen tárolt szöveg-file-t: 
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109 open 1,8,2,"teszt.list, ur" 
20 gett1,x$ 

30 print x$; 

40 if stC264 then 20 

50 close 1 


A rutin lényegében egy ciklus, amely a file összes karakterét (byte-ját) végigolvassa és kiírja 
a képernyőre. A file vége az ST (status) rendszerváltozó alapján ismerhető fel, amelynek 
értéke az utolsó karakter beolvasásakor 64, egyébként 0. A soros file nyomtatásához az 
alábbi utasítássorozat szükséges: 


P. 8. 


10 open 1,8B,2,"teszt.list, jur" 
29 open 2,4 

30 gettti,x$ 

40 printt2,x$; 

50 if stC264 then 30 

60 close 1 


A 20-as sorban megnyitottuk a 4-es egységszámú nyomtatót (hozzárendeltük a 2-es logikai 
file-hoz). 


1.4.7. Soros file táblázatos kezelése a tárban 


Ha egy adathalmazt soros file-ként tároltunk és olyan jellegű feldolgozást akarunk elvégezni, 
amelyhez az adathalmaz összes elemére szükségünk van — mivel a file-t csak sorosan tudjuk 
végigolvasni — feldolgozás előtt az egészet be kell olvasnunk a tárba." Mielőtt a beolvasás 
megkezdődne, DIM utasítással helyet kell foglalni (deklarálni kell) a tárban az indexes változó -: 
számára. Rekord szerkezetű adathalmaz kezelésére alkalmas a kétindexes változó (táblázat), 
melynek első indexe a rekord-, a második pedig a rekordon belüli mező sorszáma. 
Tekintsünk egy ilyen táblázatot: 


1. mező 2. mező 3. mező 
1. rekord OK DM DÉNA) A 
2. rekord DS) DS2DXJ 7 DS2B 
3. rekord SB)  D$BA 7 D$BI 
4. rekord DSA) DSMD  DIMD 


5. rekord D$(5,1) D$(5,2) D$(5.,3) 


6. rekord D$(6,1) D$(6,2) D$(6.3) 


" Ha az adatok feldolgozásának sorrendje azonos a tárolás sorrendjével, egy munkatfile (esetleg munkatfile-ok) létrehozásá- 
val elkerülhetjük az adathalmaz tárbeli kezelését. (A ford. megjegyzése.) 
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Ez a táblázat egy olyan file tárbeli elhelyezését szemtélteti, amely 6, egyenként 3 mezőt 
tartalmazó rekordból áll. A D$ változót DIM D$(6.3) utasítással deklarálhatjuk. 
A következő program a lemezen létrehoz egy ilyen szerkezetű file-t: 


P. 9. 


109 open 1,8,2,"tesztfile.seg,s,w" 
110 for xs1 to6 

1209 print chr$(147); 

1309 print"adatsorszam";x 

A A a kuémaszásézosezgteztztsátűti 

150 for y51 to 5 
162 print"mezoszam 
170 input x$ 

180 printti1,x§ 

1990 next y 

200 next x 

210 closel 


gyi o: ; 


Az adathalmaz létrehozása kétszeresen egymásba ágyazott ciklussal történt, amelyben 
a ciklusváltozók adják meg a rekordok, azon belül a mezők sorszámát. A program lefu- 
tása után a 6 rekord soros file-ként helyezkedik el a lemezen. Célszerű ezt a programot 
SAVE "TEST. INP" 8 utasítással tárolni a lemezen, a későbbiekben szükség lehet rá. 

A file visszaolvasására szolgáló program szerkezete hasonló az előzőhöz, az eltérés mindösz- 
sze annyi, hogy az egyes mezőket azonnal a táblázat, illetve az indexes változó megfelelő 
elemébe töltjük. 


P. 10. 


1069 open 1,8,2,"tesztfile.seg,s,r" 
119 dim d$(6,3) 

120 for xs1i to 6 

139 for ysi to 5 

140 inputti1,d$(x,y) 

150 next y 

160 next k 

180 closei 


Végrehajtás után PRINT utasítással ellenőrizhetjük, hogy az adatokat szabályos helyen 
tároltuk-e. 

Mivel az indexekkel minden mező címezhető, írjuk be például a PRINT D$ 1,2 utasítást az 
1. rekord 2. mezőjének ellenőrzésére. Célszerű egy kiválasztott rekord összes mezőjét ellenő- 
rizni. Tároljuk ismét a fenti programot, majd az alábbi rutinnal végezzük el ezt az ellenőrzést: 


P. 11/a 


190 input"a rekord sorszamaz: "ex 
NNNÉT NT ÉLÉRE zetése eneké szá tárés ést táátetsndl kán aasams ség tatási UV 
1530 print"1. mezo: ";d$(x,1) 
1409 print"2. mezoz ";d$(x,2) 
159 print"3. mezo: ";d$(x,3) 


A program bekéri a rekord sorszámát, majd kiírja az összes mezőt úgy, hogy az első index 
a beírt változó, a második pedig felveszi az összes lehetséges értéket. 

A táblázat tartalmát a tárban tetszólegesen megváltoztathatjuk. Toldjuk be a fenti programba 
az alábbi sorokat: 
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P. 11/b 


169 print ÉV. ame ző eg0 vom 50 am ős 2 am "ös 540 aán ta sat san 600 at tam 500 a sze sas s mó e 
170 input"modosítando mezoszam: "gy 
180 input"uj tartalom "zd$(x,y) 


190 print"o.k" 

200 print"tovabbi javitas (i/n)? " 
210 get x$:if x$z"" then 210 

220 if x$-"i" then 100 

230 if x$z"n" then end 

240 goto 210 


A megváltoztatandó mező sorszámát második indexként használjuk. A módosított táblázatot 
ismét tárolnunk kell a lemezen, erre alkalmas a következő rutin (előzőleg azonban tároljuk 
a módosított rutint!): 


P. 12. 


199 open 1,8,2,"é:tesztfile.seg,s,w" 
119 for xsl to6 

120 for ys1i to3 

170 printWi,d$(x,y) 

149 next y 

1590 next x 

169 close 1 


Az egymásba ágyazott ciklus alkalmazásával ez a rutin ís viszonylag rövid. A file-név előtt 
elengedhetetlen az "(a.:", miután a már meglévő régi file-t felül kell írni. 

Az ilyen táblázatok használatánál rendkívül gyors az adatelérés. Az elérési idő nem függ a 
táblázat nagyságától, a táblázat nagysága viszont, s így az adatmennyiség is a tárkapacitás 
függvénye. Ha például a címkezeléshez egy olyan programot írunk, amely 8 kbyte-ot vesz 
igénybe, még mindig 30 kbyte marad a címek tárolásához. Miután egy cím tárolásához kb. 
80 karakter szükséges, így nem kevesebb, mint 384 címet kezelhetünk a tárban! S mindezt 
olyan elérési idővel, amelyet a legbonyolultabb adatszervezéssel (index-szekvenciális) sem 
lehet túlszárnyalni. 


1.4.8. Keresés a táblázatban 


Mint a táblázatos feldolgozás kapcsán elmondottakból már tudjuk, egy táblázat bármelyik 
eleme indexelhető. A táblázat kétdimenziós, amelyben az első index adja meg a rekord 
sorszámát. Ha a tárba betöltünk egy ilyen táblázatos szerkezetű adathalmazt, majd abban 
meg akarunk keresni egy rekordot, ismernünk kell a keresett rekord sorszámát. Adott esetben 
ez a szám például a cikk- vagy vevőszám lehet. Vannak azonban olyan file-ok is, amelyek 
nem tartalmaznak megfelelő mezőt a rekordok sorszámozásához, tehát a keresést a mezők 
tartalma alapján kell elvégezni. Ehhez végig kell nézni a táblázatban lévő összes rekordot, 
majd egyenként összehasonlítani a rekordon belüli mezőt a keresettel. Nézzünk meg erre egy 
gyakorlati példát, de előbb az alábbi programmal állítsunk elő egy file-t, amelyben neveket 
és telefonszámokat tárolunk: 
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P. 13. 


109 open 1,8,2,"teldat,s,w" 
110 printchr$(147) 


120 input "Vezeteknev :1";nn$ 
130 iínput"Keresztnev 1" vn$ 
140 input"Korzetszam :1":kn$ 
159 input"Allomasszam :":an$ 


160 print"Rendben? (i/n)" 

170 getx$zifx.$s"" or x$C2"i" and xn$(C2"n" thení70 
100 ifxíz"n"then110 

190 print"Tovabbi bevitel? (i/n)" 

200 getx$zifxáíz"" or x$C2"i" and x$(C2"n" then170 
210 ifx$5"n"then240 

220 printtH1, nni", "vn$","kn$","an$ 

230 goto 1109 

240 closei 


A program dokumentálása a következő: 


100. sor a TELEDÁT soros file megnyitása írásra 

110. sor a képernyő törlése 

120-150. sorok  beolvassuk klaviatúráról a négy mezőt 

160-180. sorok javítási lehetőséget adunk 

190-210. sorok az adatbevitel és a program vége 

220. sor a rekord négy mezőjét egymás után felírjuk a file-ba 
230. sor folytatjuk az adatbevitelt 

240. sor a 100. sorban megnyitott file-t lezárjuk. 


Gépeljük be ezt a programot, indítsuk el és töltsük fel a file-t adatokkal. A tesztprogramot 
lemezen tároljuk azzal a céllal, hogy a munka végén a kész rutinokat egyetlen programmá 
fűzhessük össze. (A témakör utolsó fejezetében azonban megtalálhatjuk a ielefonregiszte- 
rünk kezeléséhez szükséges teljes programot.) 

A létrehozott adathalmazban többféle módszerrel végezhetünk keresést. Ha például egy név 
egy telefonszámot szeretnénk megtudni, kiírathatjuk az egész file-t képernyőre vagy nyomta- 
tóra. Ez az eljárás meglehetősen időigényes, különösen akkor, ha a file sok rekordot tartal- 
maz. 

Egy meghatározott név telefonszám szerinti megkeresését rábízhatjuk a gépre, amely ec" 
ciklusban átfut az egész adathalmazon és megkeresi, majd kiírja a képernyőre vagy nyomia- 
tóra azt a rekordot, amelyben a kívánt név szerepel: 


P. 14. 


100 open 1,8,2,"teledat,s,r" 

1109 dím d$(100,4)1xzi 

120 inputtti1,d$(i,1) d$(i,2) d$(i,3) d$(i,4) 
139 ifstC26áthen xsxti:gotol20 c 
140 closeil 

159 printchr$(147) 

160 input"a keresett nev: "3z;s$ 

179 forisiíitox 

180 if d$(i,1)-s$ hen210 

199 nexti 

200 print"Nincs ílyen nev":goto 280 

210 print"A keresett nev: " 
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" 


220 print!————————————— 


250 print"Vezeteknev :" s d$(i,1) 
240 print"Keresztnev t";d$(i,2) 
250 print"Korzetszam e"sd$(i,5) 
260 print"Allomasszam :";d$(i,4) 
An dl, dása, VÁLGTNSZRT a s ádáz Üztzüg agas hé 


280 print"Tovabbi kereses? (i/n)" 

299 getx$:ifx$z"" or x$C2"i" and x$(C(2"n" then290 
300 ifx$-"i"then150 

319 print"program vege...":end 


A program dokumentálása: 


100. sor a TELEDAT soros file megnyitása olvasásra 

110. sor a rendszer a táblázatot 100 rekordra deklarálja és az indexet az 1-re állítja 

120. sor a táblázat feltöltése 

130. sor a file végét jelző státusz-változó (ST) ellenőrzése; ha nincs file-vég, az index 
1-gyel nő 

140. sor a file lezárása 

150. sor képernyőtörlés 

160. sor a keresett név beolvasása a billentyűzetről, tárolása az S$ változóban 


170-190. sorok . a ciklus a táblázatban azt a rekordot keresi, amelynek a névmezője meg- 
egyezik a keresett névvel. A rekord megtalálása után elágazás az output 
rutinhoz 

200. sor nincs meg a név 

210-270. sorok a keresett nevet tartalmazó rekord teljes kiírása 

280-310. sorok lehetőség további keresésre 


Láthatjuk, hogy ez a keresési folyamat nagyobb adatmennyiségnél is gyors, miután már a 
keresést megelőzően a file-t táblázatként töltöttük be a tárba. A táron belüli keresés gyorsabb 
a lemezen való keresésnél. A program könnyen módosítható úgy, hogy ne csak a név, hanem 
egy tetszőleges másik mező szerint is keressen. A fenti program a keresési szempontnak 
megfelelő első rekord megtalálása után megszakítja a keresést, ez azonban nem mindig 
célszerű. Ha például az előállított telefon-file-ban egy meghatározott lakcímnek megfelelő 
összes rekordot kell megkeresni és kiírni, egy másik rutinra van szükség. Szervezzük úgy a 
programot, hogy miután a rutin megtalált egy rekordot, annak kiírása után folytassa a 
keresést. A fenti követelményeknek az alábbi program felel meg: 


P. 15. 


109 open 1,8,2,"teledat,s,r" 

119 dim d$(199,4):x5-1 

120 inputtti,d$(i,1) d$(i,2) d$(i,3),d$(i,4) 
150 ifstC264then x5sxtl:gotol20R 

140 closei 

159 printchr$(147) 

160 input"A keresett korzetszam: ";s$ 

170 forisitox 

180 if d$(i,1)5-s$ then210 


199 nexti 

200 print"Adatsor vege! ": ete 270 

218 PYOÁNt Tass kesz s sstátét een $ 
220 print"Vezeteknev s"zd$(i,1) 

250 print"Keresztnev :1"z;d$(i,2) 

240 print"Korzetszam 2":;d$(i,5) 
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250 print"Allomasszam 
"Má 11 dghegsazeetatesane ságtatatáganl 
270 print"Tovabbi kereses? (i/n)" 


280 getx$:ifx$-"" or x$(C2"i" and x$(C(2"n" then280 


290 ifx$z"i"then150 
3009 print"program vege. ..":end 


A keresett rekord megtalálása és kiírása után nem fejeződik be a ciklus, a program a keresést 
addig folytatja, ameddig a felhasználó kívánja, illetve, amíg a file végét nem érzékelte. Ha az 
olvasó megértette ennek a programnak a működését, a vezetéknév szerint kereső programot 
önállóan is meg tudja írni, a fenti utasítássorozat igénybevételével. 


1.4.9. Táblázat egyszerű rendezése 


Az adatfeldolgozás során gyakran válik szükségessé egy adathalmaz numerikus vagy alfa- 
numerikus átrendezése. Mivel a rendezés meglehetősen időigényes munka még a gép számá- 
ra is, a programozók újabb és újabb rendezési eljárásokat dolgoznak ki a futási idő lerövidíté- 
se érdekében. A BASIC értelmező (interpreter) alatt írt rendezési eljárás az értelmező működé- 
si elvéből adódóan különösen sok időt vesz igénybe. 


TA(0) cTA(I) 
TA(I):TA(X) 
TA(X) -TA(0) 


Miért kell tulajdonképpen rendezni az ada- 
tokat? Képzeljünk el egy olyan telefon- 
könyvet, amely a neveket rendezetlen sor- 
ban tartalmazza. Ahhoz, hogy egy bizo- 
nyos nevet megtaláljunk, elejétől végig át 
kell néznünk a telefonkönyvet. A rende- 
zettség tehát előnyös egy adathalmazon 
belüli adatkeresésnél. A gép is jóval gyor- 
sabban kiismeri magát egy rendezett file- 
ban. 

Több rendezési eljárás létezik, amelyek el- 
sősorban a végrehajtási sebesség tekinte- 
tében térnek el egymástól. A legegysze- 
rűbb rendezési eljárás az, amely egyen- 
ként a megfelelő helyre viszi az elemeket. 
Ha egy számsort emelkedő sorrendbe kell 
rendezni, az első elemet összehasonlítjuk 
a másodikkal. Ha az első a nagyobb, a 
program felcseréli az elemeket. Ezután az 
első és a harmadik elem összehasonlítá- 
sára kerül sor, és így tovább egészen ad- 
dig, míg az utolsó elemet elérjük. Ezután 
már a legkisebb elem került előre, azaz 
megfelelő helyre. A következő futás tehát 
már figyelmen kívül hagyhatja az első ele- 
met. Ezt a logikát mutatja be az itt látható 
folyamatábra. 


Ez a rendezőprogram az 1. indextől indul, amelyet kezdőindexként tárol az I változóban. A 2. 
index az X változó, amely eggyel nagyobb mint az I kezdőindex. Ezután következik az első 
és második elem összehasonlítása. Amennyiben a TA(l) tartalma nagyobb a TA(X) tartalmá- 
nál, ezeket az elemeket a TA(0) segédváltozón keresztül a programnak fel kell cserélnie 
egymással. Ezután az X index értéke eggyel nő, vagyis három lesz, majd a TA(l)-t, azaz ismét 
az első elemet hasonlítjuk össze a TA(X) harmadikkal és így tovább. Az utolsó elem elérésekor 
(X5 utolsó index) az első helyen a legkisebb elem lesz és az I kezdőindexet eggyel növelhet- 
jük. Ezután kezdődik elölről a ciklus. 

A vázolt rendezési eljárás az első pillantásra elég körülményesnek tűnik. Az összehasonlítá- 
sokat a tárban végezzük, viszonylag gyorsan. Kisebb rendezendő adathalmaznál ez a 
módszer nem rossz. Ha nem számsort, hanem karakteres adathalmazt akarunk abc sorrend- 
be rendezni, a programozástechnikai módszer megegyezhet az előzővel, ha figyelembe 
vesszük, hogy a BASIC hogyan végzi el két füzér összehasonlítását. 

Töltsünk fel egy 12 elemű karakteres indexes változót tetszőleges szövegekkel: 


P. 16/a 


109 dim ta$(12) 
110 for isi to 12 
120 input taá$(i) 
130 next ii 


Adatbevitel után a következő programrész abc-be rendezi a szövegeket, majd az eredményt 
kiírja képernyőre: 


P. 16/b 


140 ir! 

150 xsitl 

160 if ta$(i) c ta$(x) then 180 
170 ta$(0)-tat$lil:ta$(l(i)sta$(x):tak(x)zta$r(B) 
180 xrxft1 

190 if x (s 12 then 160 

200 isiti 

210 if ii 42 12 than 159 

220 for isi to 12 

230 print ta$(i) 

240 next i 


Ha névsor helyett teljes rekordokat, azaz egy egész táblázatot kell rendezni a tárban (pl. az 
előző telefon-file-unkat), rendezés közben az összes mezőt, azaz egész rekordokat kell 
felcserélni. A név szerinti rendezéshez a 160-170. sorokat az alábbiak szerint módosítjuk: 


P:17 


100 dim ta$(12,3) 

110 for isi to 12 

120 input ta$(1,1) ta$(i,2) tag(i,3) 

130 next i 

140 i-i 

150 xziti 

160 if ta$(i,1) c ta$(x,1) then 180 

170 ta$(O,i)zta$(i,l):tat(i,i)sta$(x,i1):ta$(x,1)zta$(0,1) 
171 ta$(0o,2)sta$(i,2):ta$(i,2)sta$(x,2):ta$(x,2)zta$(0,2) 
172 ta$(O,D)sta$(i,J):ta$(i,3)sta$(x,35)r:rta$(x,3)sta$(0,3) 
180 x-xti1 

190 if x (5 12 then 160 

200 izsiíti 


44 


210 if í 2 12 then 150 
220 for isi to 12 

230 print ta$(i) 

240 next i 


Nagyobb adatállomány ilyen módon történő rendezése rendkívül időigényes. Ha gyors 
rendezést akarunk végezni, használhatjuk pl. a DATA BECKER által kiadott "Tippek és 
trükkök a C 64-en" c. könyvben levő rendkívül gyors gépi kódú rendező rutint. 


1.4.10. Címkezelés soros adattárolással 


A fejezet végén közlünk egy kényelmes címkezelő programot, amelyet valószínűleg minden 
olvasó célszerűen fel tud használni. Ez a program különböző jellegű adatállományok feldol- 
gozására alkalmas. 

A programban használt címrekord szerkezete: 


— NÉV 1. 

- NÉV 2. 

— UTCA/HÁZSZÁM 

— IRÁNYÍTÓSZÁM/HELYSÉG 
- TELEFON 

- MEGJEGYZÉS 


A NÉV 1. és a NÉV 2. mező használata a felhasználó belátására van bízva. Tárolhatjuk a NÉV 
1.-ben a vezetéknevet, a NÉV 2.-ben pedig a keresztnevet, vagy az egyik mezőben a cég nevét, 
a másikban a címzett személy nevét stb. 

A MEGJEGYZÉS mező például a címek csoportosításához használható (családtagok, hivatali 
munkatársak, barátok stb.). 

Az adathalmazt kezelő program menüje az alábbi lehetőségeket tartalmazza: 


-1- ADATHALMAZ BETÖLTÉSE 
—2- ADATHALMAZ MENTÉSE 
-8- ADATBEVITEL 

—4— ADATJAVÍTÁS 

-5- KERESÉS/LISTÁZÁS 

—6- ADATOK TÖRLÉSE 

-0- PROGRAM BEFEJEZÉSE 


—1— AZ ADATHALMAZ BETÖLTÉSE 

Ez a rutin megkérdezi a felhasználótól az adathalmaz nevét, majd ha ilyen nevű file létezik 
a lemezen, annak tartalmát beolvassa a tárba. Ezután a képernyőn megjelenik a file által 
tartalmazott rekordok száma. Ha beolvasás során hiba lép fel, vagy a file egyáltalán nem 


létezik, a rutin a LEMEZHIBA üzenetet írja ki. A rutin RETURN-nel történő befejezése után 
ismét megjelenik a menü. 


" 64 Tips und tricks (DATA BECKER, 1984), magyarul előkészületben (a szerk. megjegyzése). 
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—2- ADATHALMAZ MENTÉSE 


Ha az adathalmazt betöltés után megváltoztattuk vagy bővítettük, a program befejezése előtt 
ezzel a rutinnal a módosított állományt ki kell írnunk a lemezre. A mentés során a file 
ugyanazon a néven kerül fel a lemezre, amilyen néven eddig szerepelt (vagyis amit a betöltés 
rutinban a felhasználó megadott). 

Ezt a rutint célszerű a feldolgozás során többször behívni, előfordulhat ugyanis pl. egy rövid 
áramszünet, amikor nyilván az összes aktuális módosításunk elveszhet. Mentés után nyugod- 
tan dolgozhatunk tovább a tárban lévő adathalmazzal. 


—3- ADATBEVITEL 


Ennek a rutinnak két funkciója van: 

1. Ha még üres az adathalmaz, ezzel a rutinnal létrenozhatjuk, majd feltölthetjük adatokkal. 
A felhasználónak meg kell adnia a file nevét, lehetőleg ügyelve arra, hogy a lemezen ilyen 
nevű állomány még ne szerepeljen, azt ugyanis a mentést végző rutin értelemszerűen 
felülírja. 

2. Ha már vannak adatok a tárban, a rutin elvégzi az adathalmaz bővítését. Minden rekord 
bevitele után megjelenik a HELYES(I/N)? üzenet. Itt lehetőség nyílik a beírt adatok helyesbí- 
tésére. Ha az összes adatot szabályosan írtuk be, úgy az I-t kell leütni. Most megjelenik a 
TOVÁBBI BEVITEL(I/N)? üzenet. Ha az N billentyűt nyomjuk meg, a program visszatér a 
menühöz. 


—4— ADATJAVÍTÁS 


A módosító rutinnal bármely rekord mezőit megváltoztathatjuk. Valamilyen módon azonban 
közölni kell a géppel, hogy melyik a javítandó rekord. 

A program először bekéri a felhasználótól a keresett rekordban szereplő két nevet és azt a 
rekordot írja ki módosításra, amelyben ezek a nevek szerepelnek. Módosítás előtt tájékozód- 
hatunk az adathalmazban a KERESÖLLISTÁZÓ rutin segítségével. 

Miután a gép kiírta a javítandó rekordot, meg kell adnunk a módosítandó mező számát. Ezt 
követi az új tartalom meghatározása. A címet még egyszer kiírja a gép módosított formában. 
Ha ebben a rekordban további módosítások nem szükségesek, a 9 billentyűvel fejezhetjük 
be a rekord javítását. Végül a program megkérdezi, akarunk-e további rekordokat javítani. 
Ezt a kérdést az I és az N billentyűvel válaszolhatjuk meg. 


—5- KERESÉS/LISTÁZÁS 
Ez a rutin rendkívül komplex és sokoldalú. Kérdés alapján választhatunk, hogy a keresett 
címeket a képernyőre (B billentyű) vagy a nyomtatóra (D billentyű) akarjuk listázni. Ha a 


nyomtató mellett döntöttünk, még egyszer kell választanunk az alábbi két lehetőség közül: 


— a címek kinyomtatása az összes mezővel közönséges nyomtatópapíron 
— az 1-5. mezők kinyomtatása felragasztható címkéken. 
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Az első esetben a P, a másodikban az A billentyűt kell leütni. A felragasztható cím-cimkék 
egysorosak és 89 x 36 mm formátumúak lesznek. 

Az adatok válogatásához ki kell töltenünk egy ún. keresési maszkot. Ha egy mező nem 
meghatározott a keresésnél, a RETURN-t kell leütni. Ha például az összes olyan címet 
keressük, amelyben az irányítószám 4000, minden mezőnél üres RETURN-t kell ütni kivéve 
az irányítószámot. Az IRÁNYÍTÓSZÁM/HELYSÉG mezőben a 4-es számot adjuk meg, majd 
utána a RETURN-t. 

Néhány példa a válogatásra: 


VEZETEKNEV RETURN 
KERESZTNEV RETURN 
UTCA/HAZSZAM RETURN 
IRANYITOSZAM/HELYSEG 4000 

TELEFON RETURN 
MEGJEGYZES RETURN 


A fenti válogatással minden 4000-es irányítószámú rekordot kiír a gép. 


VEZETEKNEV M 

KERESZTNEV RETURN 
UTCA/HAZSZAM RETURN 
IRANYITOSZAM/HELYSEG RETURN 
MEGJEGYZES CSALAD 


Az utóbbi esetben minden olyan családtag címét kiírja a gép, ahol a VEZETEKNEV mező első 
betűje M. 


-6- ADATOK TÖRLÉSE 


A VEZETÉKNÉV és a KERESZTNÉV beírása után a gép kiírja a neveket és megkérdezi, hogy 
ezt a címet valóban törölni kell-e. A törlésre csak az ! billentyű megnyomása után kerül sor. 


—-0- A PROGRAM BEFEJEZÉSE 


Előfordulhat, hogy a menütől a program végét kérjük, de előtte elfelejtettük lemezre vinni 
(menteni) az adatállományt. Ekkor GOTO 110-zel újra elindíthatjuk a programot anélkül, hogy 
az adatok törlődnének; 

Nézzük át a program listáját: 


109 poke 53280,5:poke53281,2:printchr$(158);:dimd$(1009,7) 
119 gosub2g3Oo 
120 print"Valassza ki a funkciot: " 


138 print"—-——-—— rea ee mase án an am memmet "aprint 
140 print" -1- adathalmaz betoltese 

150 print" -2- adathalmaz mentese 

160 print" -3- adat bevitel 

170 print" -4- adat javitas 


47 


180 print" -§- adat kerüőes istazást 


199 print" -6- adat torles":print 
200 print" -0- program befejezese" 
210 print 

220 print" valasszon  (0-6)?" 


230 getx$zifx$C"V"orx$2"o"then230 

240 ifx.$C£2"0"then340 

250 print:print" biztos (i/n)?" 
260 getx$:ifx$C2"n"andx$C2"i"then260 
270 ifx$s"n"then110 

2809 gosub2039p 

290 printtab(3);"A program ujra indithato" 
390 printtab(15);" "goto 1109" ":print 
310 printtab(3); "utasíitassal - adatelvesztes nelkul! !":print 
350 end 

340 onval (x$) gosub360 , 5402 , 680 , 880,1199, 1770 
359 gotoli10 

DOBD KFEM OAÁEREJE ALA 36 9t 94 9Edt 36 

3570 rem adat olvasas 

380 rem KRAMER 9 At 9 at 96 

370 gosub2930 

400 input"Az adatfile neve:";dn$ 

410 open15,8,15 

420 openíi,B,2,dn$t", sr" 

450 inputt1i5,fe:if fe-Othen460 

440 print"disk hiba !!!" 

420 goto5i10 

460 x":1 

470 inputtti,d$§(x,1) d$(x,2) ,d$(x,3) ,d$(x,4) ,d$(x,5) ,d$(x,6) ,d$(x,7) 
480 if stC264 then xzxti:goto 470 

490 print"A filebol osszesen"3;x 

53900 prínt"rekord kerult beolvasasra.:print 
5109 closei:closei5 

5290 print"tovabb - CRETURNI" 

530 inputx$:return 

549 rem Katát 9 áá 

550 rem mentes 

560 rem KHRKEAKIERRK 

570 if x2Othen590 

580 gosub2239: return 

5909 gosub2Oo3zO 

609 openi,B,2,"Ee:"tdnát",s,w" 

610 forizitox 

620 printtti1,d$(i,1)","d$(i,2)","d$(i,59","; 
SZO printtti,d§$(i,49)","dá(i,5)","d$(i,6)","d$(i,7) 
640 next 

650 print"Adatok kimentve!":closel:print 

660 print"tovabb - CRETURNI" 

670 inputx$sreturn 

680 rem FAERERÉE 96 9t 

6970 rem adatbevitel 

7OW FEM FEBR E 96 94 94-46 36 4436 

710 ifx-Othengoto730 

720 gosub2930: input"Az adatfile neve:";dn$ 
750 x:sxti1 

740 gosub203O 

750 print"Adat bevitel:" 

2 E 7 §. ) ot alsszetamasttáynásatságsádátalN "aprint 

770 í-x:gosub2110 

780 foriszítoZ:printchr$(145);:next 

790 forisítoz:printtab(15)s:inputd$(x,i):next 
800 print:print"rendben (i/n)?" 

810 getx$:ifx$(2"n"andx$C2"i"then810 

920 ifx$-"i"thenB840 

830 goto740 

840 print"Tóvabbi bevitel (i/n)?" 

850 getx$:ifx$C2"i"andx§FC2"n"then850 


860 

870 

880 

890 

909 

710 

920 

930 

940 

950 

960 

970 

780 

990 

1000 
1010 
1920 
1030 
1940 
1050 
1060 
1070 
1080 
1990 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1550 
1340 
1350 
1360 
1570 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


ifx$z"i"then730 

return 

TEM HERE E 9E dé 9 AE 

rem adat javítas 

FÉM AAL RE ÁE E dát 96 9E 

ifx2.Othen930 

gosub2230: return 

gosub2030 

input "Vezeteknev: "zni$ 
input"Keresztnev: ";n2$ 

foriszíitox 

ifd$(i,1)sni$andd$(i ,2)sn2$then1010 

nexti 

print"Ilyen nev nincs!" 
print"tovabb - CRETURNI":inputx$:return 
gosub203o 


print"-1- vezeteknev :";d$(i,1) 
print"-2- keresztnev :":d$(i,2) 
print"-3- lakcim - utca :";d$(i,3) 
print"-4- — varos:";d$(i,4) 
print"-5- iranyitoszam :";:d$(i,5) 
print"-6- telefonszam :":d$(i,6) 


print"-7- megjegyzes :"z;d$(i,7):print:print 
print"Kerem valasszon: ":iprint"(9snem modosiít) ":print 
getx$:ifval(x$)C1 or val(x$) 27andval(x$) cC29then1100 
ifval(x$):9then1150 

ysval(x$) 

input"Uj adattartalom: "zd$(i,y):print 

goto1010 

print"Tovabbi javitas (i/n)?" 
getx$zifx$k2"i"andx$(2"n"then1160 

ifx$-"i"thenB880 

return 

TEMAJA EBEÉ E BE EHE AE 9EAE JE 96 AEJE 96464 

rem adat valasztas — listazas 

TEM AE Át ÁK AE JE TEAR AE At TE E E AE AE AE AE At AE AE 94 E 

ifx.Othen1240 

gosub2230: return 

gosub2OZOo:print"Lista printerre (p) vagy kepernyore (s)?"; 
getx$:ifx$C2"s"andx$(C2"p"then1250 
o$-x$:ifo$sz"s"then1500 

print:print"papír (p), vagy level cimke (m)?" 
getx$:ifx$C2"p"andx$£2"m"then1280 

d$-x$ 

gosub20o3Oo 

print"A keresesi kulcsot kerem." 

print"Ha nincs feltetel - csak CRETURN]" 

[1 a ú 1. -llnánáténÉKÉKÉKEKÉNÉKÉGÉKÉNÉKÉKÉKÉKÉKÉKÉNKÉKÉKÉKÉKÉKÉKÉKÉKÓKÉKÉKÉKÉK ":print 

i 0: gosub2110 
forisitoZ:printchr$(145);:s$(i)s"":next 
foriszíitoZsprinttab(15)3z:inputs$(i)snext 

ifo$z"s" or d$z"m"then1450 

gosub2g3O:print"A printer rendben (i)?" 
getx$:ifx$C2"i"then1590 

open1,4 

printt1,"Nev 1";spc(B)s"Nev 2"zspc(9)z"utca ";zspc(10)3 
printt1, "varos":printtil, "ir.szam tavb.sz. megj." 
forisíto79:rprinttt1,"s"::next:printtti 

closel 

forisíitox 

forysito7 

ifs$(y)sleft$(d$(i,y) len(s$(y)))thenzszt1:goto14BO 
nexty 

ifzs7Z7then gosub 1550 

z-G:nexti 

printsprint"Adatsor vege!":print 

print"tovabb - CRETURNI":print 
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1550 inputx$ 

1540 return 

1559 ifos-"s"theni730 

156090 ifd$-"m"then1670 

1579 openi1,4 

1580 printtt1,d$(i,1);spc(19-len(d$(i,1)))s; 
15909 printtl,d$(i,2);spc(29-len(d$(i,2))); 
1600 print$1,d$(i,3):;spc(29-len(d$(i,3))); 
1610 printtHl,d$(i,4) 

16209 printtii,spc(3):d$(i,5)3;spc(25-len(d$(i,5)))s; 
1630 printtti1,d$(i,6);spc(15-len(d$(i,6))); 
1640 printt1,d$(i,7) 

1650 printti1:closei 

1660 return 

1670 open2,4 

1680 printt2 

1699 forj-itoS:printt2,d$(i,j):next 

1700 printti2:printt2:printH2 

1719 close2 

1720 return 

1730 gosub2030: gosub2110 

1740 print:print"tovabb (i)?" 

1750 getx$z:ifx$C2"i"then1750 

1760 return 

1770 Tem AERERESEBAE E 36 9436 

1780 rem adat torles 

1790 rem AEMM Eat át 93 9t ae 

1809 ifx2Othen1820 

18109 gosub 2230:return 

1829 gosub293g 

1830 input "Vezeteknev s "3n1$ 

1849 input"Keresztnev :3 ";n2$ 

18509 forizitox 

1860 ifd$(i,1)sni$andd$(i , 2) -n2$then1900 
1870 nexti 

1890 print"Ilyen nev nincs! ":print 

1899 print"tovabb - CRETURNI":inputx$:return 
1999 gosub2930: gosub2110 

19109 print:print"Torli a rekordot (i/n)?" 
1929 getx$zifx$C2"i"andx$(C£2"n"then1920 
1950 ifx$zs"n/thenreturn 

194090 foryzitox-1 

1959 forjsíto7 

1960 dí(y,j)zd$(yti,j) 

1970 nextj,y 

19809 forjsitoZ:d$(x,j)z-"":nextj 

1990 xzx-1 

2000 print"A rekord torolve!" 

2010 print"tovabb - CRETURN]" 

29020 inputx$:return 

2ZOZO rem JERTE IE 9E 9 9446 

2040 rem program fej 

2050 Fem Adtál at at at at 

2060 printchr$(147); 


2070 printtab(8) g "sazsssezsszemmszzszzzzzzszziz 
2080 printtab(8);"C I nyilvantartas 
2090 printtab(8) ; "szsszssszzsezszsznuszsszszsszszsz":printiprint 


2100 return 
2110 rem MEGEMEJER ERB tat 


2120 rem rekord iras 
2139 rem HKERHEMARRI E 


2140 print"Vezeteknev s "sd$(i,1) 
2150 print"kKeresztnev 3 "sd$C(i,2) 
2160 print"Lakcim - utca : ";d$(i,3) 
2170 print" varos: ";d$(i1,4) 
2180 print"Iranyitoszam "edőci, 5 


2200 print"Telefonszam 3 ";d$(i,6) 
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2210 print"Megjegyzes 3 "4p49(i 7) 

2220 return 

22ZIDO Tem HIEIEE EE AE JEE 96 4£ át 

2240 rem nincs adat ! 

2250 rem BENEEREIEM RE 3E 9 9E4t 

2260 gosub2030 

2270 print"Nincs adat a memoriaban! ":print 
2280 print"tovabb - CRETURN]" 

2290 inputx$r:return 


1.4.11. A soros adattárolás alkalmazási területei 


A következő fejezetekben ismertetendő relatív- és közvetlen elérésű file-okhoz viszonyítva a 
soros file egyik előnye a lemezterülettel való rendkívül takarékos bánásmód. A legkülönbö- 
zőbb hosszúságú adatok tárolhatók folyamatosan egymás után anélkül, hogy ehhez előre 
rögzítenünk kellene a rekordhosszúságot. 

Ezzel a lehetőséggel élhetünk olyan esetben, amikor az adathalmaz részeit nem kell megvál- 
toztatni, s amikor a rekordokat nem kell közvetlenül elérni. Az idevonatkozó példák a követke- 
zők: 


Könyvelői file-ok 

Egy könyvelési napló folyamatosan ellenőrzi az összes könyvelési folyamatot. Változtatások- 
ra nincs mód. 

Kiértékelési file-ok 

Egy közvetlen elérésű file feldolgozása során például az 5000 Ft-nál nagyobb értékben 
vásároló összes vevőt, és a további nyomtatáshoz a megtalált rekordokat beírhatjuk egy 
soros file-ba. 


Ha az olvasó még nem rendelkezik elegendő programozási tapasztalattal, soros file segítsé- 
gével szimulálhatja a közvetlen elérésű feldolgozást (a tárban dolgozva). Ajánlatos azonban 
az adattárolás egyéb lehetőségeit is áttanulmányozni, mert ezzel saját munkánkat könnyítjük 
meg. 


1.5. A relatív adattárolás 


A relatív adattárolást és ennek programozását a VC-1541-es felhasználói kézikönyve nem 
ismerteti. Ennek magyarázata, hogy a VC—20-as és a COMMODORE 64-es BASIC 2.0 progra- 
mozási nyelve nem tartalmazza a relatív file-ok kezelésével kapcsolatos utasításokat. Így 
elvileg a CBM 64-gyel és a VC—20-szal nincs lehetőség relatív adattárolásra — de csak elvileg. 
A gyártó ugyanis kifejlesztett néhány mesterfogást, amelyekkel megkerülhetjük a BASIC 2.0 
korlátait, s a relatív adattárolást a VC—-20-as és a COMMODORE 64-es gépeken is használhat- 
juk. Előfordulhat egyes esetekben, hogy ez kissé nehézkesnek tűnik — például amikor a 
rekordhosszúsággal kapcsolatos adatokat CHR$(x)kóddal kell átvinni a lemezegységhez — 
azonban a kényelmesebb adatkezelésért érdemes ennyi fáradtságot vállalni. 


1.5.1. Az elv 


A relatív file azonos hosszúságú, sorszámmal ellátott rekordokkal dolgozik. A sorszám 
alapján minden rekord közvetlenül címezhető, azaz ha megadjuk a rekordszámot, a rekordot 
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közvetlenül beolvashatjuk. A továbbiakban a rekord sorszámát kulcsnak nevezzük. A kulcs 
alapján a DOS felismeri, hogy a file kezdetéhez , viszonyítva" a rekord hol helyezkedik el a 
lemezen, így az olvasófejet erre a helyre pozicionálva a rekordot el tudja olvasni. 

Tehát nem kell beolvasni a teljes adathalmazt vagy indextáblázatot a tárba, hanem csak az 
éppen szükséges rekordokat. 


A relatív file kezelésének lépései a 


A) A relatív file létrehozása: 

1. a file-t megnyitjuk. Ekkor történik a rekordok hosszúságának meghatározása. 
2. az utolsó rekord deklarálása 

3. a file-t lezárjuk 


B) Egy rekord írása a file-ba: 

1. a file megnyitása 

2. pozicionálás a kívánt rekordra 
3. a rekord kiírása 

4. a file lezárása 


C) Egy rekord olvasása a file-ból: 
1. a file megnyitása 

2. pozicionálás a kívánt rekordra 
3. a rekord olvasása 

4. a file lezárása. 


Ez természetesen csak egy durva áttekintés. A következő fejezetekben az említett folyamatok 
részletes elemzése következik. 


1.5.2. A relatív adattárolás előnyei 


-— a rekordokat gyorsabban elérjük 
- tehermentesítjük a gép tárát 


A soros file-oknál lényeges feltétel volt, hogy az adatkezeléshez a soros file-nak a tárban 
kellett lennie. Ellenkező esetben ugyanis egy rekord keresésekor az egész file-t végig kellett 
volna olvasnunk. Ez gyakorlatilag annyit jelent, hogy az összes rekord beolvasásán túl a 
rekordokat a keresési kulccsal is össze kellene hasonlítani. A keresés ezzel az eljárással 
időigényessége miatt teljes képtelenség lenne. 

A relatív file-oknál mindez jóval egyszerűbb. Mivel a kulcs segítségével minden rekordot 
közvetlenül beolvashatunk, a file mérete független a tárkapacitástól. Ez azt jelenti, hogy egy 
olyan programmal, amely a VC-20-as 3,5 kbyte-ját teljesen lefoglalja, egy max. 163 kbyte-nyi 
területet elfoglaló file-t tudunk kezelni. 

Az a programozó, aki egyszer megismerte a relatív file-szervezés előnyeit, a továbbiakban ha 
csak teheti, egészen biztosan ezt az adatszervezési módot használja. Itt mutatkoznak meg 
igazán a relatív file-ban rejlő lehetőségek. 
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1.5.3. A relatív file megnyitása 


A relatív file-okat is OPEN utasítással nyitjuk meg. Ez az utasítás alig tér el a soros file-ok 
. megnyitásához szükséges utasítástól. A relatív file megnyitásának formátuma: 


OPEN Ifn.ga,.csatorna,"file-név,L,"-t CHR$ (rekordhosszúság) 


Az első négy paraméter azonos a soros file OPEN utasításában szereplő paraméterekkel. 
Azaz a paraméterek sorrendben: 


a logikai file-szám, 

az egységszám (általában 8), 
a csatornaszám (2-14), 

a file neve. 


Az L betű közli a DOS-szal, hogy relatív file-t nyitottunk meg, amelyben a rekordok hossza 
a CHR$ argumentuma. A rekordhossz 1 és 254 között lehet, azaz egy rekord legfeljebb 254 
karaktert tartalmazhat. Ha a rekordhosszúság 88-nál kisebb, a rekord egy INPUT utasítással 
olvasható. Az INPUT utasítás csak akkor működik helyesen, ha a PRINT utasítás a rekordot 
egy lezáró RETURN-nel együtt írja a lemezre, tehát ha a PRINT utasítást követő változó mögé 
nem írtunk pontosvesszőt. A RETURN a rekordoknak elengedhetetlen része, ha tehát a 
rekordokat INPUT-tal akarjuk beolvasni, az OPEN utasításban a tényleges rekordhossznál 
mindig 1-gyel nagyobb értéket kell megadnunk. Ezek szerint egy 80 karakteres rekordokból 
álló file-t a következőképpen kell megnyitni: 


OPEN1,8,2,"FILE.RELL" 4 CHR$(81) 


A FILE.REL nevű relatív file megnyitása a 2. csatornán keresztül történt. A rekord teljes hossza 
a RETURN-nel együtt 81 karakter. 


A rendelkezésre álló csatornák korlátozott száma miatt egy lemezegységen egyszerre csak 
egy relatív file-t nyithatunk meg. Ha két relatív file-lIal akarunk dolgozni, az egyiket mindig le 
kell zárni, míg a másikkal dolgozunk. 

A relatív file létrehozásakor célszerű a teljes file-területet előkészíteni, mert így a későbbi 
feldolgozás sokkal gyorsabbá válik. Az előkészítés azt jelenti, hogy a file legnagyobb kulcsú 
(sorszámú) rekordjába CHR$(255) karaktert írunk. Ha olyan rekord olvasásával próbálko- 
zunk, amelynek a kulcsa nagyobb a file eddigi utolsó rekordjának kulcsánál, ez a RECORD 
NOT PRESENT hibához vezet. Ha azonban ugyanilyen külcsú rekordot írunk a file-ba, a DOS 
az új rekord kulcsánál kisebb kulcsú összes rekordot automatikusan teleírja CHR$(255) 
karakterekkel. Az említett tartomány rekordjainak további olvasása ekkor hibamentesen 
valósul meg. 

Az olyan rekordokat, amelyekben CHR$(255) van, felszabadított rekordoknak nevezzük. Ha 
a file összes rekordja fel van szabadítva, a feldolgozás sokkal gyorsabb, mint egyébként. 
Nézzünk erre egy példát: 


Tegyük fel, hogy megnyitunk egy 100 rekordra tervezett relatív file-t, de az utolsó (100.) 
rekordot nem szabadítjuk fel. Ha most például először az 50-es kulcsú rekordot írjuk fel a 
file-ba, a DOS az első 49 rekordot automatikusan felszabadítja, azaz teleírja CHR$(255) 
karakterekkel, ez pedig elég soká tart. Ha a file legelső megnyitásakor a tervezett legnagyobb 
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kulcsú rekordba írunk egy CHR$(255) karaktert, a file összes rekordja felszabadul, azaz 
előkészítettük a lemezterületet. Így további feldolgozásunkat nem lassítja a rekordok felsza- 
badításának művelete. A relatív file kezelésének legfontosabb része egy adott kulcsú rekord 
beolvasása és felírása, minthogy most a rekordokat nem folyamatosan olvassuk és írjuk, 
hanem közvetlenül a kiválasztott rekordra pozicionálunk. A pozicionálás fizikailag is lezajlik, 
hiszen a DOS a rekord kulcsából meghatározza azt a pozíciót, ahol a rekord a lemezen 
fizikailag elhelyezkedik és az író/olvasófejet az adott lemezterületre irányítja. A pozicionálásra 
szolgáló utasítás formátuma: 


PRINT dt Ifn,"P" 4 CHR$(csatorna) t CHR$(alsó) t CHR$(felső) 4 CHR$(byte) 


A lemezterület előkészítésekor még egyetlen rekord sincs felszabadítva, hiszen éppen most 
akarjuk ezt megtenni. A tervezett legnagyobb kulcsú rekordba írunk egy CHR$(255) karaktert. 
Írás előtt kiadjuk a fenti pozicionáló utasítást, ekkor az egységen a LED villogni kezd és a 
RECORD NOT PRESENT hibaüzenetet olvashatjuk le a hibacsatornáról. Ez azonban nem 
hiba, a rekord felírását a DOS elvégzi. A látszólagos hiba minden olyan esetben fellép, amikor 
az eddig felszabadított legnagyobb kulcsú rekordnál nagyobb kulccsal írunk fel egy rekordot. 
Felírás után a LED abbahagyja a villogást, a hibajelenség megszűnik. A pozicionáló utasítás- 
ban az alsó és felső paraméterek adják meg a rekordok kulcsát. Miután az egy byte-ban 
ábrázolható legnagyobb szám 255, s egy relatív file maximum 65535 rekordot tartalmazhat, 
a kulcsot két byte-ban kell megadni. Ez a két byte az alábbi képlet segítségével számítható 
ki: 


HB —INT(RN/256) 
LB-RN-HBs256, ahol 


HB- High Byte (felső byte) 

LB- Low Byte (alsó byte) 

RN- Record Number, a rekordok kulcsa (sorszáma). 

Az utolsó paraméter a megadott rekordon belül egy meghatározott karakterre történő 
pozicionálásra szolgál. 


PRINT 442,"P" 4 CHR$(2) t CHR$(10) -- CHR$(1) t CHR$(5) 


A fenti pozicionálás a 266. rekord 5. byte-jára történik. A 266-os kulcsot a 10 (alsó byte) és 
1 (felső byte) paraméterek határozzák meg. 

A teljes rekord olvasásához vagy írásához a 1. karakterre (byte-ra) kell pozicionálnunk. Ha 
az utolsó paraméter nincs megadva, a pozicionálás a lezáró RETURN-re (CHR$(13)) történik. 
Egy egyenként 80 karakterből álló 1000 rekord hosszúságú file előkészítéséhez szükséges 
BASIC-készlet a következő: 


P.19. 


100 rn:1000 

119 hb-int(rn/254) 

120 1bzsrn-hbx256 

150 openi1,8,2,"file.rel,1,"tchr$(80) 

140 open2,8,15 

150 printt2,"p"tchr$(2)trchr$(1l1b)tchr$(hb)trchr$(1) 
160 printt$1,chr$(255) 

170 closei:close2 
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Az 1000 rekord felszabadítása kis időt vesz igénybe. Ne feledkezzünk meg arról, hogy 
ezekben a 80 karakteres rekordokban csak 79 karakteres rekordok helyezhetőek el. 


1.5.4. Adatelőkészítés relatív tároláshoz 


A relatív tároláshoz elengedhetetlen a fix rekordhosszúság. Ha a rekord több mezőből áll, 
a mezőket össze kell kapcsolni arra ügyelve, hogy az egész file-ban minden rekordon belül 
az egyes mezők egy és ugyanazon pozíción kezdődjenek. 

Legjobb, ha ezt a problémát egy példán keresztül vizsgáljuk meg. Tegyük fel, hogy anyagnyil- 
vántartást akarunk készíteni, amely a következő szerkezetű rekordokból áll: 


CIKKSZÁM 4 helyértékű 
RAKTÁRI SZÁM 5 helyértékű 
BESZERZÉSI ÁR 6 helyértékű 
MEGNEVEZÉS 15 helyértékű 
ELADÁSI ÁR 6 helyértékű 
Rekordhossz 36 byte 


A cikkcsalád 36 byte rekordhosszúsággal kb. 200 cikket foglal magában. Hozzuk létre ezt a 
file-t: 
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100 rn-200:rem a rekordok varhato max. szama 

119 rlisSó:rem a rekordok hossza 

120 hb-int(rn/256) 

139 1b-rn-hbr256 

149 open1,8,2,"file.rel,1,"tchr$(r1l) 

150 open2,8,15 

160 printt2,"p"tchr$(2) tchr$(1b)rchr$(hb) tchr$(1) 
170 print$1,chr$(255) 

1809 closel:close2 


Tegyük fel, hogy a cikkfile sorosan van megadva, 200 rekordból tevődik össze, amelyek 
egyenként 5 mezőből állnak. Ezeket a mezőket össze kell kapcsolni fix hosszúságú mezőkből 
álló rekordokká és felírni a relatív file-ba. A megoldásnál gondot okozhat, hogy pl. a cikk 
megnevezése nem mindig tölti ki a 15 karaktert. A relatív file szerkezetének a következőnek 
kell lennie: 


. 


POZÍCIÓ 111111111122222222223333333 
123456789012345678901234567890123456 
MEZŐ AN$ BE$ LN$ EP$ VP$ 
TARTALOM 1 2 mm LEMEZ 1344 23.40 42.30 
2 3 mm CSAVAR 1231 9.00 14.00 
3 A3A4 SZELEP 1243 23.45 29.90 
200 12mm TÖMLŐ  " 2321 6.70 9.80 
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A soros file mezőit az alábbi változókba olvassuk be: 


Cikkszám AN$ 
Megnevezés  BE$ 
Raktári szám LN$ 
Beszerzési ár EP$ 
Eladási ár VP$ 


Bár a következő utasításban ezeket a mezőket összekapcsoljuk, de amint látni fogjuk, nem 
várt eredménnyel; 


RC$-AN$-tBE$tLN$--EP$--VP$ 


Az RC$ rekord nem felel meg a kívánt file-szerkezetnek. Ez azzal magyarázható, hogy a cikk 
megnevezése után közvetlenül a raktári szám következik. Miután azonban a raktári számnak 
okvetlenül a 20-as helyértéktől kell kezdődnie, holott a cikk megnevezése nem állandóan 15 
karakter, a raktári szám mező , elcsúszik". Ahhoz, hogy a rekordokból visszaolvasás során 
az egyes mezőket egyértelműen visszanyerjük, elengedhetetlen a rekordszerkezet feltétel 
nélküli betartása. Azokat a mezőket, melyek hossza rövidebb a tervezettnél, a rekord összeál- 
lítása során üres jelekkel kell kiegészítenünk. Mindezek figyelembevételével a láncolás az 
alábbi formát ölti: 


BL$ - " " 

RC$ — AN$ -- LEFT$(BL$4-LEN(AN$)) 
RC$-RC$--BES -t LEFT$(BL$,15-LEN(BES)) 
RC$-RC$ 4 LN$ -- LEFT$(BL$,5-LEN(LN$)) 
RC$-RC$ EP$ -t LEFT$(BL$.6-LEN(EP$)) 
RC$-RC$ 4 VP$ - LEFT$(BL$,6-LEN(EPS$)) 


Az összekapcsolás bonyolultabbnak tűnik, mint amilyen a valóságban. Minden egyes mezőt 
annyi üres karakterrel (space) kell kiegészíteni, amennyi a mező tervezett és tényleges 
hosszának különbsége. Ezeket az üres jeleket a program elején definiált BL$ füzér (string) 
szolgáltatja. Az említett füzér olyan hosszú, mint a rekord leghosszabb mezője, vagyis a mi 
esetünkben 15 karakter. 

Nézzünk meg részleteiben egy példát. Tegyük fel, hogy az első cikkszám 8. Ha a mező 
maximális hosszából (4) elvonjuk a tényleges hosszúságot (1), 3-at kapunk. Az AN$ füzért 
tehát három üres (LEFT$(BL$.3)) jelle! kell kiegészíteni. 

Az adatokat a relatív file-ba történő átvitel előtt a fenti eljárással elő kell készíteni, ezért 
indokolt, hogy saját munkánk megkönnyítésére a relatív file-kezelő programokba egy olyan 
szubrutint Írjunk, amely az egyes mezőket a tervezett hosszúságig kitölti üres jelekkel. 


1.5.5. A lemezegység és a gép közötti adatátvitel 
Ez az adatátvitel elvileg semmiben sem tér el a soros tárolásnál alkalmazott módszertől. 
A tételeket a PRINT-tel írjuk, s az INPUT-tal vagy a GET-tel olvassuk. Az egyetlen különbség 


az, hogy egy rekord olvasása vagy írása előtt pozicionálnunk kell az adott rekordra. Ez a 
P utasítással történik. Készítsünk most az alábbi programmal egy relatív file-t: 
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P.21. 


100 
105 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
590 
310 
s20 
350 
340 
350 
560 
370 
IBO 
390 


Ennek a programnak a működési elvét jobban megérthetjük a soronkénti elemzés alapján: 


bli$z" u. 
openi1,8,2,"test.rel,1,"tchr$(41) 

open2,8,15 

printt2,"p"tchr$(2)tchr$(1909) tchr$(D)tchr$(1) 
printt1,chr$(255) 

printchr$(147) 

print ""Adat bevitel" 


PIÁT Sztn áeaesmentnűrtásénetár ass " 

input"Rekordszam (1-1009) (Élő ts 

if rn£i or rn2100 then print chr$(145);:goto 160 
input"Mezo 1í (max. 19 karakter): ";fi$ 


if len(f1$)210 then printchr$(145) ; : goto190 
input"Mezo 2 (max. 5 karakter): "z;f23 

if len(fií$)2 5 then printchr$(145) ; : goto210 
input"Mezo 3 (max. 10 karakter): "5f5$ 

if len(f1$)210 then printchr$(145) ; tgoto230 
input"Mezo 4 (max. 15 karakter)i: ";f4$ 

if len(f1$)215 then printchr$(145) ; : goto250 
print"Rendben (i/n)?" 

getx$zif x$C2"i" and x$C€2"n" then2BO 

if xn$z"n" then 140 
rcszfistleft$(bl$,19-len(f1$)) 
regarcstf2$tleft$(bl$, 5-len(f23$)) 
regercsrizstleft$(bl$,19-len(f3$)) 
rceszrcstfigtleftá$(bl$,15-len(f4$)) 
printt2,"p"tchr$(2)tehr$(rn)tchr$(0)rchr$t1) 
printti,rc$ 

print"Tovabbi bevitel (i/n)?" 

getx$:if x$C2"i" and x$C2"n"then 5708 
if.$z"i" then 140 

close 1:close 2:end 


100 egy 15 hosszúságú üresjel-füzér definiálása 

105 egy 41 karakter hosszú rekordokból álló relatív file: megnyitása 

110 a 15-ös parancscsatorna megnyitása 

120 a relatív file előkészítéséhez pozicionálás az utolsó rekord első byte-jára 

130 az utolsó rekord felszabadítása és az inícializálás kezdete 

140 képernyőtörlés Z 

150-260 a rekord kulcsszám és az 1-4. mezők bevitele, a mezők hosszának ellenőrzése 


270-290 a beírt adatok egyszer helyesbíthetők 
300-330 a rekord előkészítése 


pozicionálás az adott kulcsú rekord első byte-jára 
a rekord felírása lemezre 


360-380  — további bevitel 


Írjunk ki néhány rekordot ezzel a programmal a file-ba. Ne feledkezzünk meg a program 


a program vége 


tárolásáról, mert a továbbiakban is szükségünk lehet rá. 
Most írjunk egy olyan programot, amely a felírt rekordokat visszaolvassa: 
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1009 open1,8,2,"test.rel,1l1,"tchr$(41) 

1109 open2,8,15 

115 printchr$(147) 

1209 input"Rekordszam: ";rn 

130 printH2,"p"tchr$(2)tchr$(rn)tchr$(D)ichr$(1) 

140 inputtti,rc$ 

1590 if asc(rc$):255 then print"A rekord ures": goto250 
160 printrc$ 

250 closei:close2 


Ez a rutin egy meghatározott rekordot beolvas a file-ból. Ha a rekord üres, azaz nem írtunk 
bele eddig tényleges adatot, akkor az adatok helyén CHR$(255) van, hiszen ezt írtuk bele 
előkészítéskor. 

Ha a rekordot kitöltöttük, a program kiírja annak tartalmát a képernyőre. A kiírásból láthatjuk, 
hogy az 1-4. mezők mindig azonos helyeken vannak. Ha a rekordot ismét fel akarjuk bontani 
mezőkre, a MID$ utasítást használhatjuk. Ahhoz például, hogy az 1. mezőt kivehessük a 
rekordból, a rekord megkeresése után az alábbi utasításokat próbáljuk ki parancs üzemmód- 
ban: 


FL$- MID$(RC$,1,10) 
PRINT F1$ 


Most az 1. mező az F1$ változóban van. A rekordnak ez az , ízekre szedése" a fenti rutinba 
beépíthető. 
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100 open1,8,2,"test.rel,l,"tchr$(41) 

119 open2,8,15 

115 printchr$(147) 

120 input"Rekordszam: ";rn 

130 printt2,"p"tchr$(2)tchr$írn)tchr$(D)tchr$(1) 
140 inputti,rc$ 

150 if asc(rc$)-255 then print"A rekord ures": goto250o 
160 printrc$ 

170 fi$szmid$(rc$, 1,10) 

180 f2$zmid$(rc$,11, 5) 

190 f3$zmid$(rc$,16,10) 

200 f4$-mid$(rc$,26,15) 

210 print"Mezo 1: ";fi1$ 

220 print"Mezo 21 ";f2$ 

230 print"Mezo 3: ";5f3$ 

240 print"Mezo 4: ";5f4$ 

250 print"Tovabbi olvasas (j/n)?" 

260 getx$zifx$C2"i"andx$(2"n"then260 

270 ifx$-""i"then115 

280 closei:close2 


Lényeges, hogy a MID$ utasításban lévő adatok a rekordon belül megfeleljenek a mező 
pontos pozíciójának. A zárójelek közötti első adat az a füzér, amelyet részeire szedünk, 
A második paraméter az a pozíció, ahol a füzéren belül a mező kezdődik, a harmadik pedig 
a mező hossza. 

Eddig a rekordokat az INPUT utasítással olvastuk be. Ha azonban a rekord hossza megha- 
ladja a 88 karaktert, az INPUT utasítás nem használható. Használjunk helyette GET utasítást, 
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amely a rekord byte-jait egyenként olvassa, s egy füzérré kapcsolja össze. Tegyük fel, hogy 
egy 128 karaktert tartalmazó relatív file-t készítettünk elő és töltöttünk fel adatokkal. A file 10. 
rekordját akarjuk az RC$ változóba beolvasni. 
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100 open 1,8,2,"test.get,1l,"tchr$(128) 

119 open 2,8,15 x 

120 printH2,"p"tchr$(2Ítchr$(10)rchr$(0)trchr$(1) 
130 rce$z"" 

140 foriszitol2B 

150 getti,x$ 

160 rc$zrcítx$ 

170 nexti 

180 printrc$ 

199 closel:close2 


A fenti rutin lefutása után a rekord az RC$ változókban áll rendelkezésre. Ha ezt a rekordot 
egy PRINT utasítással írtuk fel pontosvessző nélkül, akkor az RC$ füzérben az utolsó karakter 
egy RETURN. A helyes megoldásban tehát a 140-es sorban lévő ciklust csak a 127-ig kell 
futtatni. 

Mint már tudjuk, a P utasítás utolsó paramétere határozza meg, hogy az olvasás a rekord 
melyik karakterétől kezdődjön. Ha például az előző feladat 127 karakteres rekordjában a 
40-60. pozíciójú mezőt szeretnénk olvasni, az utolsó paramétert a pozicionálásban 40-re kell 
állítani. 
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109 open 1,8,2,"test.get,1,"tchr$(128B) 
119 open 2,8,15 

129 printti2,"p"tchr$(2)tchrá$(10)tchr$(0) techr$(40) 
150 fsz"" 

149 fori-si1to21 

150 gett1,x$ 

160 f$-f$t-$ 

170 nexti 

1890 printf$ 

190 : 

2009 rem tovabbi ciklusok, feldolgozas 
210 : 

229 closei:closez 


Miután a 120. sor a 10. rekord 40. byte-jára pozicionál és a 140-170-es sorokban a ciklus 21 
byte-ot olvas be az F$-ba (a rekord 40-60. byte-jai), a ciklus lefutása után az ott lévő mező 
az F$-ban lesz. 

A fentiekből következik, hogy ha csak a rekord egyik részére van szükségünk, nem kell az 
egész rekordot beolvasni. Ezt a pozicionálás negyedik paramétere teszi lehetővé. 


1.5.6. A relatív file lezárása 


A relatív file lezárásakor ugyanúgy járunk el, mint a soros file lezárásakor. Mivel azonban a 
relatív file kezeléséhez a pozicionálásnál szükségünk van a 15-ös parancscsatornára, az 
utóbbit is le kell zárni. A CLOSE és OPEN utasításokban természetesen a file-számoknak meg 
kell egyezni. 
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1.5.7. A bináris keresés 


Normális körülmények között minden rekord elérése a rekord sorszámával történik. Előfordul- 
hat azonban, hogy egy relatív címfile-ban Szántó urat keresünk, a megfelelő rekordsorszám 
azonban nem ismeretes. Egyik lehetőség az, hogy minden rekordot beolvasunk, s összeha- 
sonlítjuk a Szántó névvel stb. Ez a megoldás rendkívül nagy időráfordítást igényel. Ha a file 
rekordjai már rendezettek, akkor hatékonyabb keresési eljárást is alkalmazhatunk. Ilyen 
eljárás a bináris keresés. 

A bináris keresés csak rendezett adathalmazon használható, ezért, ha egy új rekordot 
hozzáveszünk a rendezett adathalmazhoz, azt a megfelelő helyre kell beilleszteni, 

A bináris keresést egy egyszerű példa alapján meg lehet érteni. Ha egy telefonkönyvben a 
név ismeretében keressük a telefonszámot, bizonyára nem sorosan járunk el. Felütjük a 
telefonkönyv közepét és megnézzük, hogy a keresett név első betűje megtalálható-e a felütött 
oldalon. Amennyiben a keresett név kezdőbetűje az abc-ben előbb van, a telefonkönyv első 
részét megfelezzük és így tovább. 

Bináris keresésnél, ha egy adott lépésben nem találtuk meg a kívánt rekordot, a rendezettség 
alapján megállapítjuk, hogy az a pillanatnyi pozíciótól számítva előre vagy hátra lehet és a 
keresést az Így kapott részhalmaz felénél folytatjuk. 

Tekintsük az alábbi növekvő sorba rendezett számhalmazt; 


KULCSSZÁM TARTALOM 
1 1985 
4 1999 
3 2005 
4 2230 
5 2465 
6 2895 
7 3490 
8 3539 
9 4123 

10 5000 
: A 5210 
12 6450 
13 6500 
14 6550 
15 6999 


A felsorolt 15 rekord közül a 3490 tartalmú rekordot keressük. Nem tudjuk, hogy hol van 
tárolva. 

Először megállapítjuk, hogy a file hány rekordot tartalmaz. Ebben az esetben 15-öt. Ezt a 
számot 2-vel elosztjuk. A file közepe 8, vagyis a 3539 tartalmú rekordról van szó. Most 
megnézzük, hogy ez a rekord a 3490 értéket tartalmazza-e. Ha nem, a keresett érték kisebb, 
vagy nagyobb a megtalált tartalomnál, ebben az esetben 3539-nél. Az összehasonlítás 
eredménye szerint most éppen kisebb. Így a keresett rekord az aktuális kulcsnál kisebb kulcsú 
rekordok között van. Így jutunk el a 2230 tartalmú 4. rekordhoz. Az összehasonlítási eredmény 
arra utal, hogy a 3490 nagyobb a 4. rekordnál megtalált 2230 tartalomnál. A harmadik 
keresés a 4. és 8. kulcsok közötti középre irányul, vagyis a 2897 tartalmú 6. rekordra. Az 
összehasonlítási eredmény most kisebb értékre utal; ez azt jelenti, hogy a következő lépésben 
megtaláljuk a keresett értéket. 
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Bináris keresésnél a szükséges lépések számát az alábbi képlet alapján határozhatjuk meg: 
S-INT(LOG(N)/LOG(2) -t 1), ahol 


S a lépések száma, N pedig a file által tartalmazott rekordok száma. Egy 1000 rekordos 
rendezett relatív file-nál például maximálisan 10 lépés szükséges egy tetszőleges rekord 
megkereséséhez! 

Állítsunk elő egy 15 rekordot tartalmazó rendezett relatív file-t, amelyben bináris keresést 
végezhetünk: 


P.26 


100 open 1,8,2,"bin.rel,1l,"tchr$(5) 

110 forizíitoi5 

1260 read rc$ 

150 printti,rc$ 

140 nexti 

150 data 1985,1999,2005,2230,2465 , 2897 ,3490 
160 data 4123,5090,5210,6450 , 6500 , 6550 , 6999 


Itt nincs szükség a pozicionálási utasításra, miután a file-t az első tételtől az utolsóig teleírjuk. 
A mutató a relatív file megnyitása után az első rekordon áll. Ebben a file-ban kell binárisan 
keresnünk a rekordokat: 
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100 open 1,8,2,"bin.rel,1,"tchr$(5) 

119 open2,8,15 

120 printchr$(147) 

140 n515: rem a rekordok szama 

1540 ií-1log(n) /log(2) 

160 ifi-int(i) c2gthenizint(i)ti 

170 msi-1 

189 i-72"i 

199 x5i/2 

210 input"Keresett ertek (tt - vege) ";zsb$ 

220 ifsb$z"r"then320 

2530 ifmcW then print"Nincs ilyen rekord": goto140 
240 mz:-m-1 

250 printt2,"p"tchr$(2)tchr$(x)tehr$(D)tchr$(1) 
260 inputtti,rc$ 

270 ifsb$5srcsthen340 

2890 ifsb$(rc$then x:sx-25"m: gota230 

290 xsx4t2őM 

300 ifx2i then print"A file-t tulleptuk":goto140 
319 goto230 

3209 closeil:c1ose2 

339 end 

340 print"A rekord tartalma: ";rc$ 

360 goto 140 


A program dokumentálása: 
100 a BIN.REL relatív file megnyitása 


110 a parancscsatorna megnyitása 
120 képernyőtörlés 
140 a rekordok száma az N változóban van 


150—-190 Ha N nem hatványa 2-nek, képezzük 2-nek az N-nél nagyobb, de hozzá legközelebb 
eső hatványát. Ekkor a file-tartomány felfelé bővül, de egyetlen rekordot sem ha- 
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gyunk ki. A hatványkitevőt indexként használjuk. X az aktuális rekord sorszáma, 
ennek értéke a hatványérték fele, amely pontosan a file aktuális részhalmazának 
közepére mutat. 

210-220 a keresett érték beolvasása. A program befejezése $ karakter beütésével. 

230 ha M €0), a keresett érték nincs az adathalimazban 

240 M eggyel csökken. Az M-mel történő következő hatványra emelés tehát a file 
megmaradó részének a fele. 

250-260 pozicionálás az X. sorszámú rekordra. 

270 ha a beolvasott rekord megfelelt a keresett értéknek, a keresés megszakad, a rekord 
tartalmát kiírjuk. 

280-310 megállapítjuk, hogy a keresett érték kisebb vagy nagyobb az olvasott rekord tartal- 
mánál. Ennek megfelelően az X változó a felső vagy az alsó maradék középértékét 
tárolja. 

320-330 A file-ok lezárása és a program befejezése 

340-360 a megtalált rekord kiírása. 

Ez egy általános célú binárisan kereső BASIC program. Csupán a rekordok számát, valamint 

a keresett értéket és a rekordok közötti összehasonlítást kell kicserélni benne, az aktuális 

feladatnak megfelelően. 


1.5.8. Egy rekord keresése index-file segítségével 


Ha gyakran van szükségünk bizonyos rekordokra, s ezeket olyan alfanumerikus kulcsokkal 
szeretnénk gyorsan elérni, amelyek nem felelnek meg a logikai rekord-sorszámnak, és a 
file-unkat nem akarjuk megfelelő rendezett formában tárolni, egy másik módszert kell a 
keresésre alkalmazni. 
Minden kiválasztott adattípushoz ki kell alakítani egy saját index-file-t, amely rekordonként 
az alábbiakat tartalmazzá: 

— a mindenkori index 

-— a hozzátartozó kulcs. 
Amikor szükség van rá, ezt.a file-t betöltjük a tárba. Egy példa: a címkezelésünkhöz egy olyan 
relatív file-t állítottunk össze, amely a következőkből áll: 

— vezetéknév 

— keresztnév 

— utca 

— irányítószám 

— lakhely 

— telefonszám . 
A keresést a keresztnév és a vezetéknév szerint egyaránt szeretnénk lehetővé tenni. Alakít- 
sunk ki tehát még két relatív file-t, amelyek csak a kívánt mezőt -— pl. a keresztnevet — és a 
fő-file-ban lévő megfelelő rekord kulcsát tartalmazzák. 
A kívánt index-file-okat teljes egészükben mindig a tárban tartjuk, miután itt van lehetőség 
a leggyorsabb indexkeresésre. Ha például a TAMAS keresztnevű rekordot akarjuk elérni, 
menjünk végig a tárban a megfelelő index-file-on, majd a megtalált kulccsal közvetlenül 
olvassuk be a címfile kívánt rekordját. 
Tegyük fel, hogy a vezetéknevekre nézve egy fő-file és egy index-file áll rendelkezésre: 
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Fő-file: Index-file: 


VEZETÉKNÉV KERESZTNÉV TOVÁBBI MEZŐK . INDEX KULCS 
(vezetéknév) LB HB 
kzt semát dett tÜtEZKttttttgttttttata-tetettttttlktébtóbétémöövöoódoóóg AZZÁ ttlzkttttdltttttttttntattÉ ata 
Török ENSZ TÁ E a S há za Este sál nt Török 01 00 
Máté VEDEL AY ra eza see SEA Máté 02 00 
Rendik ZONA IG Zeta nát ét Rendik 03 00 
Molnár CAO zSz SS szoget eaz -.... Molnár 04 00 
Terpák SRDA E E ALT RA z A bee Terpák 99 00 


A file tenát 99 rekordot tartalmaz. Ahhoz, hogy a programot futtathassuk, be kell olvasni az in- 
dextáblázatot. Ez lehet egy olyan soros file, amelyet a DIM IT$ (99) utasítással deklarált válto- 
zóba olvasunk be. Az IT$(99) tömbváltozó minden eleme tartalmaz egy vezetéknevet (első 20 
karakter), továbbá egy alsó byte és egy felső byte értéket, amelyek az adott vezetéknevet tar- 
talmazó rekord kulcsát határozzák meg. Az alábbi rutinnal egy tetszőleges rekord megkereshető. 


100 INPUT "VEZETEKNEV":N$ 

110 FOR1- 1T099 

120 IF LEFT$(IT$,20) — NETHEN 150 

130 NEXT I 

140 PRINT "ILYEN NEV NINCS!":END 

150 PRINT "MEGTALALTAM!" 

160 OPEN 1.8.2,"CIMEK,L," 4 CHR$(81) 

170 OPEN 2.8,15 

180 PRINT 44 2,"P" H CHR$(2) — MID$(IT$,21,1) - CHR$(0) - CHR$(1) 
190 INPUT4H1.RC$ 


A 110-130. sorok által alkotott ciklus sorosan fut át az index táblázaton, és a keresett nevet 

összehasonlítja az első 20 karakterrel. 

Amennyiben a vezetéknevet nem sikerült megtalálni, a rutin kilép a ciklusból s mielőtt a 

program befejeződne, a 140. sorban megjelenik a megfelelő üzenet. 

Ha a rutin a 120. sorban megtalálja a keresett vezetéknevet, a 150. sorhoz ágazik le. Kiírja 

a ,Megtaláltam" üzenetet, majd megnyitja a fő-file-t és a parancscsatornát. Pozicionál a 

megfelelő kulcsú rekordra. (Az alsó és felső byte-ok értékét MID$ függvénnyel az aktuális 

indexelemből állítja elő.) 

Ezután a 190. sorban beolvassa a rekordot. 

Az index-file-okkal történő keresés szintén gyors és rendkívül rugalmas formája az adatszer- 

vezésnek. Elméletileg minden fő-file-hoz tetszőleges számú index-file-t alkalmazhatunk, szem 

előtt tartva az alábbiakat: 

1. A fő-file-ban a mezőket érintő változtatásoknál a megfelelő index-file-okon is végre kell 
hajtani a módosítást. Ez, különösen több index-file esetén rendkívül munkaigényes lehet. 

2. Minthogy az index-file-okat, a gyors elérés érdekében a tárban kell tartanunk, azok számát 
a tárkapacitás korlátozza. 
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1.5.11. HÁZTARTÁSI NAPLÓ relatív adattárolással 


Ebben a fejezetben egy kisebb adatfeldolgozási rendszer programját mutatjuk be, amit bárki 
felhasználhat a saját háztartásának nyilvántartására, vagy alapul szolgálhat egy bonyolul- 
tabb rendszer kifejlesztéséhez. 

Az alapadatokat relatív file-ban fogjuk tárolni, tehát a rendszer kulcsos adatszerkezetre épül. 
Tegyük fel, hogy valaki nyilván akarja tartani háztartási kiadásait, azzal a céllal, hogy mindig 
napra készen tudja összesíteni és visszamenőleg rendszerezni a különböző jellegű kiadáso- 
kat. A feladat megoldásához az első lépés a tárolni kívánt adatok szerkezetének megállapítá- 
sa. A nyilvántartás alapját a számlatípusok képezik, a tárolt adatállomány egy rekordja tehát 
egy számlatípus lesz. Ha a számlatípusokat sorrendben megszámozzuk, ez a sorszám egyedi, 
tehát képezheti a relatív file kulcsát. Tegyük fel, hogy háztartásunkban 20 féle számlatípus 
fordul elő, a relatív file tehát 20 rekordot fog tartalmazni. 

Milyen legyen a rekord belső szerkezete? 

Ha a számlatípusokat csak a kódokkal különböztetjük meg egymástól, a feldolgozás során 
mindig fejből kell tudnunk, hogy melyik kódnak milyen számlatípust feleltettünk meg az 
adathalmaz létrehozásakor. Saját munkánk megkönnyítésére célszerű tehát a számlatípus 
szöveges megnevezését is tárolni. 

Legyen minden számlarekord első mezője egy 20 karakteres szöveges megnevezés. 
Kiadásainkat és bevételeinket havi bontásban célszerű nyilvántartani, ezért minden rekord- 
ban 12, egyenként 10 karakteres mezőben tároljuk a havi göngyölített összegeket. Az, hogy 
a tárolás karakteres változókkal történik, nem zavaró, hiszen a VAL függvénnyel ezeket a 
változókat bármikor konvertálhatjuk, ha számításokat akarunk végezni velük. 

A rekord hossza 201 12810-- RETURN— 141 karakter, felépítése pedig a következő: 


MEZŐ HOSSZÚSÁG POZÍCIÓ 
A számla neve 20 1-20 
Januári összeg 10 21-30 
Februári összeg 10 31-40 
Novemberi összeg TO" : 121-130 
Decemberi összeg 10 131—140 


Kiadásainkat visszamenőleg több évre tárolhatjuk, ha minden év adatait külön file-ba helyez- 
zük el. Egy év adatait egy 20 rekordból álló, egyenként 141 karaktert tartalmazó relatív file 
tartalmazza. 
Minden adatfeldolgozási feladat megoldásának kiindulópontját a fenti elemzések alkotják, 
azzal az eltéréssel, hogy nem minden adathalmaz szerkezete ilyen egyszerű. A feladat 
megoldásának ezt az előkészítő fázisát rendszerszervezésnek nevezzük. 
A rendszerszervezés második lépése azoknak a funkcióknak a meghatározása, amelyeket 
az adathalmazon dolgozó programnak el kell tudni végezni. 
A mi nyilvántartási rendszerünket az alábbi feladatok ellátására szeretnénk felkészíteni: 

— számlák előkészítése 

— könyvelés 

— számlaáttekintés 


5BO forizíto4 


399 print"Mezo"pig"s: "9f$(i) 

400 nexti 

18 BEÜT"  öszzesttrmarsm átási mén süss mistáütrenüsüéeásüs il 
AZOÓ FEM  szzzzmszaszzz za ez ezzzaszs em sza zz eza ez zzz mem ame za sz 2 azt 

430 rem mezo modosítasa 


AG Wreem  szszeztmaz ss szaszi at a um sza zzz za era ea am am maz im em a zzz 
450 print"Valassza ki a modosítando mezo szamat!" 
460 getx$rzif xEC"1" or x$2"4" then 460 

470 ínput"Uj tartalomi ";f$(val(x$)) 

480 print"Ebben a rekordban modosít meg (i/n)?" 
500 getxszif x$C(2"i" and x$£2"n" then 500 

510 if x$áz"i"then340 


SZÓ rem sszsszszzsszzus szem sza u sz zz ez az az sv az 32 sza az 


53309 rem mezok osszerakasa 
540 rem szeszzazim mzvaz az za uz sz mi emi az az ezt ea emi wa zzz ae 


59345 regz"" 

5530 re$sf$á$(1)tleft$(bl$,19-len(f$(1))) 

360 rce$zrc$tf$(2)tleft$(bl$, 5-len(f$(2))) 
570 regsercétf$(3)tleft$(bl$,19-len(f$(3))) 
380 re$zrc$tf$(4)tleft$(bl$,15-len(f$(4))) 


S90 rem ő szszerm enis eza ez mi ez uz en ex az za em ez az az e uaz az 


600 rem rekord visszairas 
6$Í0 rem szzemsszszszmmezasmeneszzees mee szaz mtezz 


6290 printti,rc$i 


ÓSO ífréem szzzezen szuz ezt ez am ze uz em er ez az mi 27 em es men s e2 


640 rem program befejezes? 


GÓ0 rem szzrszmeszszssm emanas utani sz az em enem esete meset 
660 print"Tovabbi adatmodosítas (í/n)?" 
670 getz$zif k$CÖ"i" and x$C2"n" then 670 
680 if x$5"i"then160 

690 closei1c1ose2 


A módosított program segítségével bármely rekordot és azon belül bármely mezőt megváltoz- 
tathatunk, de ügyeljünk arra, hogy a program az új mezők hosszát nem ellenőrzi, felesleges 
hosszukat egyszerűen levágja. 


1.5.10. A relatív file bővítése 


A relatív file-ban tárolt rekordok számát a felhasználók általában előre megbecsülik. Célszerű 
ezzel a becsült értékkel lefuttatni az 1.5.4. alfejezetben ismertetett előkészítő programot. Ez 
azonban nem jelenti azt, hogy a megbecsült rekordszámot a feldolgozás során nem léphetjük 
túl. 

Ha a lemez kapacitása megengedi, a létrehozott relatív file bármikor bővíthető. Célszerű az 
újonnan meghatározott legnagyobb sorszámú rekordba CHR$(255)-öt írni, ekkor ugyanis a 
korábbi és az új file végződése közötti összes rekordok felszabadulnak. 

Az elmondottak alapján tehát nem okoz gondot egy olyan rekord felírása a relatív file-ba, 
amely túllépi a file végét. Igaz, hogy ez a lépés a RECORD NOT PRESENT hibaüzenetet 
eredményezi, de a rekord felírását a DOS elvégzi. Ha viszont a file bővítésére kevés a lemez 
szabad területe, a FILE TOO LARGE hibaüzenetet olvashatjuk le a hibacsatornáról. 

A RECORD NOT PRESENT hibaüzenet olvasás közben tényleges hibát jelez, nevezetesen, 
hogy egy nem létező rekordot próbálunk beolvasni. 
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1.5.11. HÁZTARTÁSI NAPLÓ relatív adattárolással 


Ebben a fejezetben egy kisebb adatfeldolgozási rendszer programját mutatjuk be, amit bárki 
felhasználhat a saját háztartásának nyilvántartására, vagy alapul szolgálhat egy bonyolul- 
tabb rendszer kifejlesztéséhez. 

Az alapadatokat relatív file-ban fogjuk tárolni, tehát a rendszer kulcsos adatszerkezetre épül. 
Tegyük fel, hogy valaki nyilván akarja tartani háztartási kiadásait, azzal a céllal, hogy mindig 
napra készen tudja összesíteni és visszamenőleg rendszerezni a különböző jellegű kiadáso- 
kat. A feladat megoldásához az első lépés a tárolni kívánt adatok szerkezetének megállapítá- 
sa. A nyilvántartás alapját a számlatípusok képezik, a tárolt adatállomány egy rekordja tehát 
egy számlatípus lesz. Ha a számlatípusokat sorrendben megszámozzuk, ez a sorszám egyedi, 
tehát képezheti a relatív file kulcsát. Tegyük fel, hogy háztartásunkban 20 féle számlatípus 
fordul elő, a relatív file tehát 20 rekordot fog tartalmazni. 

Milyen legyen a rekord belső szerkezete? 

Ha a számlatípusokat csak a kódokkal különböztetjük meg egymástól, a feldolgozás során 
mindig fejből kell tudnunk, hogy melyik kódnak milyen számlatípust feleltettünk meg az 
adathalmaz létrehozásakor. Saját munkánk megkönnyítésére célszerű tehát a számlatípus 
szöveges megnevezését is tárolni. 

Legyen minden számlarekord első mezője egy 20 karakteres szöveges megnevezés. 
Kiadásainkat és bevételeinket havi bontásban célszerű nyilvántartani, ezért minden rekord- 
ban 12, egyenként 10 karakteres mezőben tároljuk a havi göngyölített összegeket. Az, hogy 
a tárolás karakteres változókkal történik, nem zavaró, hiszen a VAL függvénnyel ezeket a 
változókat bármikor konvertálhatjuk, ha számításokat akarunk végezni velük. 

A rekord hossza 201 128104 RETURN — 141 karakter, felépítése pedig a következő: 


MEZŐ HOSSZÚSÁG POZÍCIÓ 
A számla neve 20 1-20 
Januári összeg 10 21-30 
Februári összeg 10 31-40 
Novemberi összeg tuz gálk 121-—130 
Decemberi összeg 10 131—-140 


Kiadásainkat visszamenőleg több évre tárolhatjuk, ha minden év adatait külön file-ba helyez- 
zük el. Egy év adatait egy 20 rekordból álló, egyenként 141 karaktert tartalmazó relatív file 
tartalmazza. 
Minden adatfeldolgozási feladat megoldásának kiindulópontját a fenti elemzések alkotják, 
azzal az eltéréssel, hogy nem minden adathalmaz szerkezete ilyen egyszerű. A feladat 
megoldásának ezt az előkészítő fázisát rendszerszervezésnek nevezzük. 
A rendszerszervezés második lépése azoknak a funkcióknak a meghatározása, amelyeket 
az adathalmazon dolgozó programnak el kell tudni végezni. 
A mi nyilvántartási rendszerünket az alábbi feladatok ellátására szeretnénk felkészíteni: 

— számlák előkészítése 

— könyvelés 

— számlaáttekintés 


— számlanevek kiírása 
— havi áttekintás 
— éves áttekintés 


A számlák előkészítése 

Ez a rutin összeállítja az évi file-t. Lekérdezi a létező számlatípusok számát és megnevezését. 
Felépíti az egyes számlatípusok rekordjait, az összegmezőkbe nullát ír. Ha már létezett ez a 
file, ezzel a rutinnal törölhetjük és újra felépíthetjük. 


A könyvelés 

A könyvelendő számla számának beírása után meg kell adni, hogy a számlán levő összeg 
bevétel vagy kiadás. 

A gép ekkor kiírja az aktuális számlaértéket, bekönyveljük a megfelelő összeget, amely mindig 
pozitív. Ha korrekciós könyvelést végzünk (azaz javítunk), negatív összeget is megadhatunk. 
Végül a rutin kiírja az új számlaértéket és átléphetünk a következő tétel könyvelésére. 


A számlaáttekintés 
A számlaszám beírása után megkapjuk az egyes hónapokban elkönyvelt összegeket és az 
évi teljes összeget. 


A számlanevek kiíratása 

Az adathalmaz létrehozásakor minden számlatípust számlaszámmal azonosítottunk. Előfor- 
dulhat azonban, hogy valamelyik számlatípus azonosítóját elfelejtettük. Ez a rutin kilistázza 
az azonosítókat a hozzájuk tartozó megnevezésekkel együtt. 


Havi áttekintés 

Ha arra vagyunk kíváncsiak, hogy egy adott hónapban az egyes számlatípusokon milyen 
pénzforgalmat bonyolítottunk le, ezzel a rutinnal lekérdezhetjük. A rutin számlatípusonként 
kilistázza egy adott hónap pénzforgalmát. 


Éves áttekintés 

Az egész évi pénzforgalom áttekintéséhez (számítógép nélkül) át kellene lapoznunk a teljes 
számlakészletünket. Végül is ebben a rutinban a gép sem tesz mást, mint végigolvassa az 
összes számlatípus rekordját ahhoz, hogy havi és évi egyenleget készíthessen. A többi 
rutinhoz képest ennek a programrésznek a futtatása a legidőigényesebb. 


Ezzel gyakorlatilag befejeztük a háztartási könyvelési program áttekintését. Alapos tanulmá- 
nyozásával azonban sok ötletet meríthetünk bonyolultabb adatfeldolgozó rendszerek elké- 
szítéséhez. 

A program listája: 


P.29 

100 poke53289 , 2: pokeS32B1 , 2:printchr£(158) ; :b1l$z" ":dims(12) 
119 gosub2o5Oo 

129 input"aktualis ev : ";j$ 


130 ifj$C"1984"ory$2"1999"thenprintchr$(145) ; : goto120 
140 gosub2050 
159 print"Valasszon !" 


tál pr teás astásánttá esststéés séső Vép ágyt, 
170 print" -1- Szamlak elokeszítese" 
180 print" -2- Konyveles" 
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190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
520 
350 
540 
s50 
360 
370 
380 
590 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
589 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
920 
850 
840 
850 


print" -3- Szamlaattekintes" 
print" -4- Szamlanevek kiirasa" 
print" -57- Havi attekíntes" 
print" -6- Eves attekintes":print 
print" -0- Frogram befejezese" 
get x$zsif x$C("0" or x$2"6" then 240 


if x$(2"O"then270 

end 

on val(x$)gosub 290,560,720,1160,1370,1720 
goto140 


rem szmezszezm e zz ez sz sz zz zz az sz sm sz em em ep ze 


rem szamla felfektetes 

rem sszeasmzeresmez an az sz az sz sz zz sm mez tesz 

gosub2050 

print"Figyelem! Valamennyi ezevi adatfile 
print"torlesre kerul! ":print 
print"folytassam (i/n)?" 
getx$rtifx$C2"i"and x$(C2"n"then 360 

íf x$5"i"then390 

closelsclosez:return 
open2,8,15,"ssszamlak"tj$ 
openi,8,2,"szamlak"tj$t",1,"tchr$(141) 
gosub2o5o 

ínput"A szamlak szama  (1-20)? : "3zkz 
print 
ifkzCiorkzoözothenprintcbr$(145) ; : goto42z0 
forisítokz 

print"A szamla neve: ző 1.8 Jágát 8 ) 
inputkn$ 

iflen(kn$) 2Othenprintchr$(1835) ; : goto460 
ressknítleft$(bl$,29-1en(kn$)) 
forxzitoi12 

re$ssrcststr$(O0)tleft$(bl$,8B) 

nextx 

printti,rci$ 

next i 

closel:close2g:return 


rem szzzmezszzz:zessssn em mm am mez az 


rem konyveles 

rem szezez szuz szuz sz sz ez sz az sz en em 

gosub205So 

input"A szamla szama ";3kn 
ifknCiorkn22zothenprintchr$(1453) ; : gotob00 
gosub2140 

POÁGT "aa esasenméünmenes une ös em emamaes ára mé öó esö ese emrt érő Vt at 
printkng" -— "9knső 

a ÜZ ERÖ ERT ÉZE vgy 7gzsöts SZT TE ZS 37 BE Ze jégöetezsátátű 
print"bevetel vagy kiadas (b/k)?" 
PE ÁTYÉL eenaetzátnéaerűtitásst tööeítbanbseraté úllyyés avn vvtak dosos ök merné 
getx$z:ifx$(2"b"andx$(2"k"then6BO 
input"honap (1-12) s "sm 
iífmCiormo iZ2thenprintchr$(145) ; : goto670 


"1 ab § : ( -ÉdlnemátáGÉRÉRÉEÉÉNÉKÉKÉNÉNÉKÉKÉKÉKÉKÉKÉKÉKÉKÉKÉKÉKÉKÉNÉNI 
ifx$z"b"then s(m) zs(m) tbb: gota780 
s(m) :ss(m) -bb 

print"jelenlegi osszeg: "rs(m) 
RL ua ÖS GRNGEIGOÍN ER EE ÖSZÉBN S GBÉGYSZÁREÁ Ata EV SZGYEÍZSOSSTAAAKE Kg szála ajá" 
recszkníftleft$(bl$,29-len(kn$) ) 
foriszitol2 

s$uastr$(s(i)) 
rce$-zrc$tsítleft$i(bl$,19-len(s$)) 
nexti 
print42,"p"tchr$(2)tchr$(kn)trchr$(D)tchr$(1) 
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860 

870 

880 

890 

7900 

910 

920 

930 

940 

7950 

760 

970 

980 

7990 

1090 
1910 
1020 
1050 
1040 
1050 
1960 
1070 
1080 
1090 
1100 
11109 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1510 
1320 
1550 
1340 
1550 
15360 
1570 
1580 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


printti, ,rc$ 

closeli:close2 

print"Tovabbi konyveles (i/n)?" 
getx$:ifx$C2"i"andx$(C2"n"then890 
ifx$5-"i"thengosub2950: goto600 

return 

rem szsszzzsrazzmszzzazeazenan em ezez ez 

rem szamlaattekintes 

rem szssszseszeszzzezszzzeznz enem 

gosub29g50 

input"A szamla szama : ";kn 
ifknCiorkmoizothenprintchr$(145) ; : goto960 
gosub2140 
gosub2G5SO:printchr$(145);chr$(145); 
át 24 ÁlRÉKÉNENÉRÉLÖKÉKÉTÉGÉKÉTÉKÉKÉKÉRÉGÉÉKÓKÉGEKÉGÉGÁBE v8 
printkns" - ":kn$ 

PTÁYÉ AA s e e tá ta ém ama úg ig úm úg ea sa tő ka e sa ea ee ma sam ma IV 
print"Havi egyenleg" 

print" ém .ő0 tan van. erat e ső 108 szan 160 azó öem ea sé me elö Fe ar öreg emet aréna sm ses te 
gszo 

forisítoi2 

printiztab(B)ss(ií) 

gszgsts(i) 

nexti 

ÖV ÁLAYÜ eeeatnnstattászán ást ezazítsetőtnn vit minős senezáka ös ésíőtésésnt 
print"Osszes:":tab(8);gs 
printtab(8)g"szzzzm! 
print"tovabb - CRETURNI" 
inputx$ 

closelisclosezZ:sreturn 


Kem szszuzzzeztasz sz me sz uz sz az maz zz am ezt mt az sz az 


rem szamlanevek kiirasa 

rem szzzmeszzEs oz ama mm mm ms ag E EB JUN ZEN ZET EZEK MEZ EB 

gosub295o 
open1,8,2,"szamlak"tji$r",1,"tchrá(141) 
open2,8,15 

forizíto2D 


print42,"p"tchr$(2)tchr$(i)tchrá(B)tchr$(1) 


regza"" 
forxsito20 

getH1,x$ 

resg-rc$txi 

nextx 

inputti2,x 

ifuzsOthen 1340 
gszgstval(s$) 

eriAtánp" s "1res 
isit1:goto1230 
print"tovabb - CRETURNI" 
inputx$ 
closel:closel:return 


e RÉSZBE ZÜKEztnátszzdsátattósékaószdi 


rem havi attekintes 

MSGKTÍJ Sztsömánátétres azmtáasésetée 

gosub20o50Oo 

input"honap : "sm 

gosub2o50O 

ab S, a ÖGÁOSZ ZAK ETTE ES SZT Tab ás gESS TON NZSN NOS ZÁS ete ást Zztdátsás IZÉ sát 1. jo izie 


(dé ÉL). ÉlszlnaNGÉNÉSEGÉNÉKRKÉKÉKÉKÉKÉKÉNKTÉNKKÉKÉNÉKÉKÁENEKSÉNÉKEKÉÉÉNRB 
open1,9g,2,"szamlakötj$t",1,"tchr$(141) 
open2,8,15 

gsz-X0 

for knsi1to20 

knéz"".ggat 


printtt2,"p"tchr$(2) tehr$(kn)tchr$(D)tcehr$(1) 


for iziíito20 
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15309 getH1,x$ 

1540 kn$-knitx$ 

15509 nexti 

1560 inputt2,f 

1570 iffC250then 1590 

1589 goto1670 

1590 printt2,"p"tchr$(2) tehr$(kn) tehr$(0) tchr$( 2904 (m—-1) 4109) 
1600 for isiíto1l0 

1610 getH$1,x$ 

1620 s$-s$tx.$ 

1630 next i 

1640 gszgstval(s$) 

16509 print knztab(ó):;kniíztab(26);si 

1660 next kn 

1478. pr 2 rt e eátáttnttét te teszta als vm ált atta teas ata en ap atóelaa amatos az 
16809 print"Egyenleg ":tab(26);str$(gs) 

1690 printtab (26) ; "zszzzzm!" 

1700 print"tovabb - CRETURNI" 

17190 inputx$:closel:closeZ2rreturn 

17209 rem sssszmiszzzmuismzmszzzzzsz 

1730 rem eves attekintes 

1740 rem szzszsemsemmmmzmzzsz 

1750 gosub205Oo 

1760 open1,8,2,"szamlakő"tj$t",1,"tchr$(141) 

1770 open2,8,15 

17808 prájnt"— ee e ese aie eset ület ülésén szét ös új 
1790 print"sz. szamla nev eves egyeni." 
s T zá Y , : jegsemezae oz aémssteukást Iz ákgzazattetaeso mássá lta azztássanet áltstttetSát ee 
1810 gsz 

1820 for kn-iíto20 

1830 print$2,"p"tchr$(2)tchr$(kn) tehr$(D0)tchr$(1) 
1840 rc$-"" 

1830 forisíitol40 

1860 gettl,x$ 

1870 re$-zrc$stxt 

1880 nexti 

1890 inputt2,f:iff:-50then1980 

1900 kn$zlefti(rc$,20) 

19710 jsz0 

1929 fori-itol2 

1930 jszjstval(mid$(rc$,204t(i-—-1)x19,10)) 

1940 nexti 

1950 gssgsrtjs 

1960 printknztab(6) :sknisztab(26);js 

19770 nextkn . 

AT TÉT ÁR ee és vettette maszott ar ytéztésteertan sméselnát tart st ll aaő aa eálsats alta tti fereg els éa " 


1999 closei:close2 
2000 print"Egyenleg " ptab(26):gs 
2010 printtab( 28) ; "szz::———" 


2020 print"tovabb - CRETURNI" 
2050 inputx§ 
2040 return 


2950 rem szaszsszzszzzzszz meeszmezzzeree em 
2060 rem program fejresz 

2970 rem szzzzzazsszzzsssszzezmeirszszeszz 

2080 printchr$(147) ; 

2090 printtab(4) ; "zszszzssssszsssseszszseszszszmenu sza um ma zz az mzzzaszsz az tt 
2100 printtab(4);" H AZI szamla-konyveles "4tj$ 
2110 printtab(4) ; "sszszmmszzzzsszszsszsssszszsszszsssszssszzzzzszmzez!! 


2120 print:print 

2150 return 

2140 rem szzszsemsszzmeeszzemizszszz 

2150 rem szamlak beolvasasa 

2160 rem szszszsesszsssememsmeszsz 

2170 open1,8,2,"szamlak"4j$4",1,"tchr$(141) 

2180 open2,8,15 

2190 printtt2,"p"tchr$(2)tchr$(kn)tchr$(D)tchr$(1) 
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2200 rce$z"" 

2210 fori-1toi40 

2220 gettl,x§ 

2230 rce$zrc$tx$ 

2240 next i 

2250 inputt2,f 

2260 iffS5O0Othen 2300 

2270 print"Eves file, vagy szamla nincs!!! ":print 
2280 print"tovabb - LRETURNI" 
2290 closel:ciose2:return 
2300 knizleft$(rc$,20) 

2510 gs-D 

2320 forisitol2 

2330 s(i)sval(mid$(írc$,294t(i—1)3t190,10)) 
2540 gszgsts(i) 

2350 next i 

2360 return 

2370 open15,8,15 

2380 inputHi5S,x1$,x2£ 

2399 printx1$,x2$ 

2400 close15 


A program dokumentálása: 


A program indításához szükséges előkészítések: 

100 Beállítjuk a képernyő és a karakterek színét, feltöltünk egy változót üres karakte- 
rekkel, deklaráljuk a számlaösszeg-változót. 

110-130  Kiírjuk a fejlécet és bekérjük az aktuális évet. 

140-280  Kiírjuk a menüt és beolvassuk a felhasználó választását, majd meghívjuk a kívánt 
rutint. 


A számlák előkészítése: 
390-400 — Az esetlegesen létező évi file-t töröljük, az új file-t megnyitjuk. 


480 Az RC$§ rekord 1-20. pozícióira elhelyezzük a felhasználó által beírt megnevezést. 

500-540 A havi összegeket kinullázzuk, beillesztjük a rekordba. 

530 A rekordot beírjuk a file-ba. 

Könyvelés: 

590 Meghívjuk a ,számla beolvasása" rutint. Ez a rutin a számla havi összegeit 
S(1)-től S(12)-ig változókba helyezi. 

660 Megkérdezzük, hogy a könyvelendő összeg bevétel vagy kiadás. 

800 A számlanevet elhelyezzük a rekordba. 


810-840 " A számlaösszeget beírjuk a rekordba. 
850-860 A módosított rekordot visszaírjuk a file-ba. 


A számla áttekintése: 

980 A kívánt számlát beolvassuk és a havi összegeket előkészítjük az S(1)-től S(12)-ig 
terjedő változókban. 

1050-1090 A havi összegeket kiírjuk és göngyölítjük a GS változóban. 

1110 A teljes összeget kiírjuk. 


A számlanevek kiírása: 

1220 Beállítjuk a kezdő számlaszámot. 

1230 Pozicionálás a megfelelő számla rekordjára. 
1240-1280 A számla megnevezését beolvassuk az RC$ változóba. 
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1290-1300 Ha az 50 RECORD NOT PRESENT hiba lép fel a csatornán, visszatérünk a 
főprogramunkba. 
1320 Kiírjuk a számlaszámot és a megnevezést. 


Havi áttekintés: 

1490-1660 Beolvassuk az összes számlát. 

1510 Pozicionálunk a rekordra. 

1520-1550 Beolvassuk a számla nevét. 

1560-1580 Megvizsgáljuk, hogy a számla valóban létezik-e. 


1590 Pozicionálunk a kívánt hónap összegmezőjére. 
1600-1630 Beolvassuk a havi összeget. 

1640 A havi összegeket összeadjuk. 

1650 A számlaszám, a számlanév és a havi összeg kiírása. 
1680 Kiírjuk az egyenleget. 


Éves áttekintés: 
1820-1970 Beolvassuk az összes számlát. 


1830 Pozicionálunk a rekordra. 

1850-1880 Beolvassuk a rekordot a változóba. 

1890 Ellenőrizzük, hogy fellépett-e a RECORD NOT PRESENT hiba. 

1900 Meghatározzuk a számla megnevezését. 

1920—-1940 Beolvassuk a havi összegeket, numerikus alakra konvertáljuk és gyűjtjük a JS 
változóba. 

1950 Kiszámítjuk a végösszeget (G95). 

1960 Kiírjuk a számlaszámot, a számla nevét és az évi összeget. 

2000 Kiírjuk az egyenleget. 


A számlák beolvasása: 

2190 Pozicionálás a KN kulcsú rekordra. 

2210—2240 A rekordot beolvassuk az RC$-ba. 

2250—-2260 Ellenőrizzük, hogy fellépett-e a RECORD NOT PRESENT hiba. 

2300 A rekordból kiolvassuk a számlaszámot. 

2320-2350 A havi összegeket kiolvassuk a rekordból, átalakítjuk numerikus formába és az 
S(1)-tól S(12)-ig terjedő változókat feltöltjük. 


1.6. A lemezegység hibaüzenetei és ezek okai 


Ha lemezkezeléskor hibát vétünk vagy fizikai lemezhiba lép fel, a vörös LED villogni kezd az 
egységen. A LED mindaddig villog, amíg a hibaüzenetet le nem olvassuk, vagy amíg nem 
küldünk egy új utasítást a lemezegységhez. 

Mindenekelőtt azt nézzük meg, hogyan olvasható le a lemezegység hibaüzenete. 

Meg kell nyitnunk a 15 másodlagos című hiba- vagy parancscsatornát: 


100 OPEN 15.8,15 
110 INPUT 415, A B$.C,D 
120 PRINT A B$ CD 
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Ha nem volt hiba, a rutin a következő üzenetet Írja ki: 
0 OK 0 [/) 


Itt az első szám (A) a hiba száma, a mi esetünkben tehát 0: nincs hiba. Ezután következik 
a szöveges hibaüzenet (B$ változó). A C és a D változó azt a sáv- és szektorszámot 
tartalmazza, ahol a hiba fellépett, ha ezt a hiba jellege megengedi (főként hardverhibáknál 
és blokk-orientált utasításoknál). 

A hibacsatornát a következőképpen is leolvashatjuk: 


100 OPEN 15.8,15 
110 GET 3 15,A$:PRINT A$;:IF ST £ 564 THEN 110 
00, OK,00,00 


A következőkben ismertetjük az összes lehetséges hibaüzenetet: 


00, OK, 00, 00 
Ez az üzenet abban az esetben jelentkezik, ha az utolsó lemezművelet hibamentesen 
zajlott le, vagy az utolsó hibaüzenet olvasása után nem érkezett adat vagy utasítás az 
egységhez. 


01, FILES SCRATCHED, XX, 00 
Ez egy SCRATCH utasítást követő visszajelzés. Az XX szám adja meg a törölt file-ok 
számát, hiszen több file-t is törölhetünk a JOKER utasítás használatakor. Ez tulajdonkép- 
pen nem hibaüzenet, így a LED sem villog. Ha a BASIC 4.0 SCRATCH utasítással dolgo- 
zunk, a rendszer a visszajelzést automatikusan behozza és kijelzi. 


20, READ ERROR, TT, SS 
Olvasási hiba, amely azt jelenti, hogy nem sikerült megtalálni a blokk fejlécében (header). 
Ez a hiba általában hibás lemez olvasásakor lép fel. A TT és az SS arra a sávra és 
szektorra vonatkozik, amelynél a hiba fellépett. Teendő: a meghibásodott lemezt le kell 
cserélni. 


21, READ ERROR, TT, SS 
Ez is olvasási hiba. Egy blokkhoz nem sikerült megtalálni a megfelelő SYNC karakter: 
(szinkronkaraktert). 
A hibaüzenet oka az lehet, hogy nincs az egységben lemez, vagy ha megis van, 


ha nem sikerül, kicseréljük. Ha az új lemezzel is baj van, be kell állítani az egység 
író/olvasófejét. 


22, READ ERROR, TT, SS 
Ez a hibaüzenet azt jelenti, hogy egy adatblokk fejlécében kontrollsumma (ellenőrzőösz- 
szeg) hiba van, ami egy blokk hibás írásából eredhet. 


23, READ ERROR, TT, SS 
Valószínű, hogy egy olyan adatblokkot olvastunk a DOS-pufferbe, amelyben kontrollsum- 
ma hiba van. Egy vagy több adatbyte hibás. Teendő: mentsük a lemezen levő file-okat 
másik lemezre, ha még lehetséges. 
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24, READ ERROR, TT, SS 
Ennél a hibaüzenetnél is kontrollsumma hiba lépett fel az adatblokkban, vagy az előző 
blokk-fejlécben. Hibás file-okat próbálunk beolvasni. Teendő: ugyanaz, mint a 23. hibá- 
nál. 


25, WRITE ERROR, TT, SS 
Minden adatblokk felírása után az adatokat a DOS még egyszer visszaolvassa és össze- 
hasonlítja a pufferben lévő adatokkal (VERIFY). Ezt a hibát a rendszer abban az esetben 
jelzi, ha az összehasonlítás során nincs azonosság. Teendő: a hibát kiváltó utasítást meg 
kell ismételni. Ha ez az intézkedés eredménytelennek bizonyul, a megfelelő adatblokkot 
le kell zárni Block-Allocate utasítással (I. 2.2.4. fejezet). 


26, WRITE PROTECT ON, TT, SS 
Írásvédelem. A vezérlőnek egy blokkot kellene írnia a lemezre, holott írásvédelmet érzékelt, 
azaz a lemezen rajta van az írásvédelmi tapasz. Teendő: az írásvédelem eltávolítása. 


27, READ ERROR, TT, SS 
Olvasási hiba a fejlécben (headerben). A vezérlő hibát talál az adatblokk fejlécében. 
A DOS a blokkot ekkor nem olvassa be a tárba. Ez az üzenet földelési problémát is 
jelezhet. Teendő: az utasítás megismétlése vagy a blokk lezárása. 


28, WRITE ERROR, TT, SS 
Íráshiba (hosszú adatblokk). A vezérlő megpróbálja érzékelni a következő blokk szinkron- 
jelét az adatblokk írása után. Ha a szinkronjel egy megadott időn belül nem jelenik meg, 
hibaüzenetet kapunk. Vagy hardver eredetű hiba lépett fel, vagy rossz a lemez formálása. 
Teendő: a lemez újraformálása vagy kicserélése. 


29, DISK IN MISMATCH, TT, SS 
Lemez ID-hiba. A hiba akkor jelentkezik, ha az egységben lévő lemez ID-je nem azonos 
a DOS-ban tárolt ID-vel. A hiba oka vagy egy blokk-fejléc megsérülése, vagy az, hogy nem 
inicializáltuk a lemezt. Teendő: a lemez inicializálása. 


30, SYNTAX ERROR, 00, 00 
Szintaktikus hiba. A DOS nem tudja értelmezni a parancscsatornára kapott utasítást. 
Teendő: az utasítás ellenőrzése és helyesbítése. 


31, SYNTAX ERROR, 00, 00 
Szintaktikus hiba (nem létező utasítás). A DOS olyan utasítást kapott, amely nem szerepel 
az utasításkészletében. Ilyen pl. a BACKUP DUPLICATE utasítás. Teendő: az utasítást 
csak BASIC bővítő programmal együtt használjuk. 


32, SYNTAX ERROR, 00, 00 
Szintaktikus hiba (hosszú sor). A kapott utasítás 40 karakternél hosszabb. Teendő: az 
utasítás lerövidítése. 


33, SYNTAX ERROR, 00, 00 


Szintaktikus hiba (nem létező file-név). Az OPEN vagy SAVE utasításban szabálytalanul 
használtuk a JOKER-t ("x", "?"). Teendő: a szöveget ki kell javítani. 
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34, SYNTAX ERROR, 00, 00 
Szintaktikus hiba (nincs megadva a file). A DOS nem találja meg a file-nevet egy utasítás- 
ban, mert pl. az utasításból lemaradt a ":". Teendő: az utasítás ellenőrzése. 


39, FILE NOT FOUND, 00, 00 
Szintaktikus hiba (nem létező file). Automatikus végrehajtáshoz nem sikerült megtalálni 
egy USR típusú felhasználói programot. Teendő: a file-név ellenőrzése. 


50 RECORD NOT PRESENT, 00, 00 
A rekord nincs jelen. Egy relatív file-nál olyan rekordot akarunk olvasni vagy írni, amelybe 
eddig még nem írtunk adatot. Írásnál ez tulajdonképpen nem hiba, az üzenet csak arra 
utal, hogy üres rekordra írunk. Írásnál a hibaüzenet elkerülhető, ha a relatív file létrehozá- 
sakor a legmagasabb kulcsú rekordra CHR$ (255) karaktert írunk. 


51, OVERFLOW IN RECORD, 00, 00 
Túlcsordulás a rekordban. A rekord hossza (beleértve a RETURN karaktert is) a relatív 
file-ba történő íráskor meghaladja az OPEN-ben megadott értéket. A fölösleges karakte- 
rek figyelmen kívül maradnak. 


52, FILE TOO LARGE, 00, 00 
A file túl nagy. A rekordok száma a relatív file-ban túl sok, meghaladja a lemezkapacitást. 
Teendő: másik lemez használata vagy a rekordok számának csökkentése. 


60, WRITE FILE OPEN, 00, 00 
A file írásra van nyitva. Ez az üzenet akkor keletkezik, ha olyan file-t akarunk olvasásra 
megnyitni, amit írásnál nem zártunk le. Teendő: az OPEN utasításban az M üzemmód 
használata file-olvasáshoz. 


61, FILE NOT OPEN, 00, 00 
A file nincs megnyitva. Ez az üzenet akkor keletkezik, ha a DOS-ban egy nem megnyitott 
file-hoz akarunk hozzáférni. Teendő: a file megnyitása, vagy a file-név ellenőrzése. 


62, FILE NOT FOUND, 00, 00 
Nincs meg a file. Egy olyan program betöltésével vagy egy olyan file megnyitásával 
próbálkoztunk, amely a lemezen nem létezik. Teendő: a file-név ellenőrzése. 


63, FILE EXISTS, 00, 00 
A file létezik. A létrehozott file neve a lemezen egyszer már megtalálható. Teendő: másik 
file-név vagy az (a használata. 


64, FILE TYPE MISMATCH, 00, 00 
File-típus hiba. Egy file megnyitásakor a file-típus nem egyezik a tartalomjegyzékben lévő 
file-típussal. Teendő: a file-típus helyesbítése. 


65, NO BLOCK, TT, SS, 
Nincs blokk. Ez a hibaüzenet a Block-Allocate utasításnál jelentkezik, ha a lefoglalandó 
blokk már nem szabad. A DOS ebben az esetben automatikusan egy, az első szabad 
blokkhoz tartozó sáv/szektor értékét írja ki. Ha már nincs szabad blokk, két 0-t ír ki. 
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66, ILLEGAL TRACK OR SECTOR, TT, SS 
Illegális sáv vagy szektor. B-R utasítással olyan szektorhoz próbálunk hozzáférni, amely 
nem létezik. 


67, ILLEGAL TRACK OR SECTOR, TT, SS 
Egy file sáv/szektor láncolása egy nem létező sávra vagy szektorra mutat. (I. 3.4.3. 
alfejezet) 


70, NO CHANNEL, 00, 00 
Nincs csatorna. Több file-t próbáltunk megnyitni, mint amennyi csatorna rendelkezésre 
áll, vagy az adott közvetlen elérésű csatorna már foglalt. 


71, DIR ERROR, TT, SS 
Tartalomjegyzék hiba. A DOS-tárban levő szabad blokkok száma nem egyezik a BAM 
nyilvántartásával. Előfordulhat, hogy elmaradt a lemez inicializálása. 


72, DISK FULL, 00, 00 
A lemezen már 3-nál kevesebb szabad blokk van, vagy a rendszer elérte a tartalomjegy- 
zék bejegyzések maximális számát (A VC 1541-nél: 144). 


73, CBM DOS V2.6 1541, 00, 00 
Ez az üzenet a VC 1541-es készülék bekapcsolási üzenete. Abban az esetben jelent 
hibaüzenetet, ha az írást egy olyan lemezen kíséreljük meg, amelynek formálása nem 
azonos DOS változattal történt, például a CBM 4040-nel. a CBM 3040 elődjével(1.0 DOS 
változat). 


74, DRIVE NOT READY, 00, 00 
Ez a hibaüzenet akkor jelentkezik, ha lemezműveletet akarunk végezni anélkül, hogy 
lemez lenne a meghajtóegységben vagy az egység be lenne kapcsolva 


75, FORMAT SPEED ERROR, 00, 00 
A formálás során rossz a fordulatszám. Ezt a hibaüzenetet csak a CBM 8250 tartalmazza. 


1.7. BASIC utasítások összehasonlító áttekintése 


BASIC 4.0 
BASIC 2.0 (lerövidítve) DOS 5.1. 


OPEN — Modus av AFPEND (aF) 


BACKUP (bA) 
LOAD"$".B8LLIST  — CATALOG (cA) — (D$vagy 5$ 
V(alidate) CÖBOKT tot ÖV vágy :5V 
C(opy) COPY (coP) EDC VAGYSZ ÉS a 
CLOSE... DCLOSE(dC) 

LOAD"..."8 DLOAD (d) Tfile vagy/file 
OPEN...8...... DOPEN (dO) 

OPEN 1.815... DS$.DS vagy s 
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BASIC 4.0 


BASIC 2.0 (lerövidítve) DOS 5.1. 
SAVE". ." 8 DSAVE (dS) 
N(ew) HEADER (hE) (XN: . vagy 5 N-.. 
Knitialise) I(nitialise) al vagy 21 
P RECORD (reC) 
R(ename) RENAME (reN) (OR. vagy 5 R-.. 
S(cratch) SCRATCH (sC) (9S:.. vagy 5 S... 


A fenti táblázat tartalmazza a különböző BASIC-változatokat. A DOS 5.1 rajta van a TEST/ 
DEMO lemezen, leírását pedig a 4.2.1. alfejezetben találja meg az olvasó. 

A BASIC 2.0 és a BASIC 4.0 közötti lényeges eltérés az, hogy a BASIC 2.0-nál a lemezművelete- 
ket és a parancsokat a 15. csatornán keresztül kell továbbítani. A BASIC 4.0 lemezműveletei 
az említett csatornát önállóan kezelik (az INITIALISE kivételével). Ez a BASIC változat pl. a 
HEADER DO,"DISK1", IHJ utasításból ugyanazt az utasítássorozatot állítja elő, amelyet a 
BASIC 2.0 változatban a következőképpen kell megadni: 


OPEN 1.,8,15,"N:DISK1,HJ" 
CLOSE 1 


Ismerkedjünk meg részletesebben a BASIC 4.0 utasításokkal! 
A magyarázatokban az alábbi jelöléseket használjuk: 
Ifn - logikai file-szám 
dnz a meghajtóegység száma - a kettős meghajtóegységeknél DRIVEO (D0) és DRIVE1 
(D1); az egyszeres meghajtóegységek címzése DO-val történik 
ga — egységszám (U4-től U31-ig) 
A zárójelek közé írt paraméterek megadása nem kötelező 


APPEND 


Az utasítás egyenértékű a BASIC 2.0 "A" módú file-megnyitásával. APPEND-del soros file-t 
bővíthetünk. Az utasítás formátuma: 


APPEND 4 Ifn,"file-név" ( Ddn, Uga) 


A következő példában a 0-s egységben lévő lemezen a SEOCU.1 soros file-t bővítjük egy 
rekorddal 


100 APPEND 4 1,/5EGU.1", DO 
110 PRINT 4 1,X$ 
120 CLOSE 1 

BACKUP 


Ezzel az utasítással teljes lemezt másolhatunk, de csak akkor, ha kettős meghajtóegységgel 
rendelkezünk. Az utasítás formátuma: 


Tt 


BACKUP Ddn TO Ddr(,Uga) 

Fontos, hogy a két egységet — amelyről és amelyre másolunk — mindig megadjuk! Például: 
BACKUP D1 TO DO 

CATALOG 


Az utasítás betölti a lemez tartalomjegyzékét anélkül, hogy a tár aktuális tartalmát felülírná. 
Formátuma; 


CATALOG (Ddn,Uga) 
Például a CATALOG DO utasítás betölti a DO-ban levő lemez tartalomjegyzékét. 
Ha nem adunk meg egységszámot, az utasítás hatására kétszeres meghajtónál mindkét 
lemez tartalomjegyzéke megjelenik a képernyőn. 


COLLECT 


Azonos hatású a BASIC 2.0 VALIDATE utasításával. 
Formátuma: 


COLLECT(Ddn) 
CONCAT 


Soros file-ok összefűzésére szolgál. 
Formátuma: 


CONCAT(Ddn,)"filet" TO(Ddn)"file2"(ON Uga) 


Ha például a DO-ban levő SEO,2 file-t a D1-ben levő SEOG.1 file mögé akarjuk illeszteni, a 
következő utasítást kell megadni: 


CONCAT.D0,"SEO.2" TO D1, "SEO.1" 
COPY 
Ezzel az utasítással file-okat — a relatív file-ok kivételével — másolhatunk egyik meghajtóegy- 
ségről a másikra. Az utasítás tehát az egyszeres meghajtóegységeknél nem alkalmazható. 
Formátuma: 


COPY (Ddn,)("filet") TO (Ddn,) ("file2") 


Ha az összes file-t át akarjuk vinni (például a 0. meghajtóegységről az 1. meghajtóegységre), 
elegendő az alábbi utasítást végrehajtani: 


COPY DOTO D1 
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DCLOSE 


A DCLOSE utasítás funkciója ugyanaz, mint az egyszerű CLOSE utasításé, az alábbi eltéré- 
sekkel: 


DCLOSE lezárja az összes file-t 

DCLOSE1t 1 az 1-es számú file-t zárja le 
DCLOSE1H1 ON U9 a 9-es egység összes file-ját lezárja 
DCLOSE U8 a 8-as egység Összes file-ját lezárja 


Az utasítás formátuma a következő: 
DCLOSE (itIfn) (ON Uga) 
DLOAD 


A DLOAD utasítás előnye, hogy alapértelmezésben a 8-as egységről végzi a betöltést. 
Formátuma a következő: 


DLOAD "program" (,Ddn) (,Uga) 


Ha például a PRG.2 programot akarjuk betölteni a 0 meghajtóegységről vagy egy egyszeres 
meghajtóegységről, az alábbi utasítást kell végrehajtanunk: 


DLOAD "PRG.27 

DOPEN 

A BASIC 4.0-nak ez az utasítása rendkívül sokrétű, ami a formátumán is látszik: 
DOPENitIfn,"file" (.Ddn) (,Uga) (file-paraméter) 


Sokoldalúságát elsősorban a választható file-paraméterek adják. Két file-paramétert hasz- 
nálhatunk, amelyek jelentését a következő táblázatban foglaltuk össze: 


L PARAMÉTER W PARAMÉTER FUNKCIÓ 
IGEN NEM Relatív file megnyitása írásra 
NEM IGEN Soros file megnyitása Írásra 
NEM NEM Tetszőleges file megnyitása olvasásra (REL, 


SEO,PRG,USR) 


Az L paraméterhez a rekord hosszúságát is meg kell adni (pl. L80): 
DOPEN 1 1,"FILE.REL",DO,L80 


Egy 80 byte-os rekordhosszúságú relatív file-t nyitottunk meg írásra. Ha nem adunk meg 
file-paramétert, a file megnyitása olvasásra történik. 
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DS$ 8. DS 


A DS$ és a DS rendszerváltozók, amelyekben a hibaüzenet szövege, illetve száma van 
elhelyezve. 

Lemezhiba után kiírhatjuk a teljes hibaüzenetet PRINT DS$ vagy PRINT DS utasítással. 

A hibát programon belül is lekérdezhetjük: 


100 IF DS- 19 THEN GOTO......., 
DSAVE 


Programok tárolása lemezen. 
Formátuma: 


DSAVE (Ddn) "programnév" (,Uga) 
HEADER 


A BASIC 4.0 változatban a HEADER utasítással történik a lemezek formálása. Ez a BASIC 2.0 
NEW utasításának felel meg. 
Az utasítás formátuma a következő: 


HEADER "lemez neve" DO.lid( Uga) vagy 
HEADER Dan, "lemez neve" lid 


Az egységet kétféleképpen adhatjuk meg. Az lid itt is a lemez azonosítására szolgál. Ha nem 
adjuk meg, akkor a már megformázott lemezek csak új nevet kapnak és az összes rajtuk levő 
file törlődik. 


RECORD 


Ez az utasítás a BASIC 2.0, illetve a DOS 2.6. pozicionálási utasításának felel meg. A RECORD 
utasítással egy relatív file-ban anélkül is pozicionálhatunk egy rekordra, hogy ezt a pozicio- 
nálást továbbítanunk kellene a 15. csatornán keresztül. Formátuma: 


RECORD it Ifn,rn.(,bp) 


A logikai file-szám a már megnyitott relatív file-ra vonatkozik. Az rn a rekord kulcsát (1-65535), 
a bp a rekordon belüli pozíciót (1-254) adja meg. 

Egy példa: tegyük fel, hogy egy 2-es logikai számú relatív file 128. rekordjának 12. byte-jára 
akarunk pozicionálni. 

A megoldás: 


RECORD 1t2,128,12 
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RENAME 


Azonos a BASIC 2.0 RENAME utasításával. 
Formátuma: 


RENAME (Ddn,) "korábbi név" TO "új név" (Uga) 
SCRATCH 


Ez a file-törlési eljárás lényegesen kényelmesebb, mint a BASIC 2.0 változat SCRATCH 
utasítása, mivel egy utasítással elvégezhető. Formátuma a következő: 


SCRATCH (Ddn,) "file" (.Uga) 


Egy SCRATCH utasítás beírását követő ARE YOU SURE? (biztos vagy benne?) üzenetre adott 
válasszal érvényteleníthetjük az utasítást. Ha a file-t tényleg törölni akarjuk, az Y-t kell leütni, 
ha nem, az N-t. A file törlése után a FILES SCRATCHED üzenet jelenik meg a képernyőn. 
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2. FEJEZET — 
PROGRAMOZÁS HALADÓK RÉSZÉRE 


2.1. A lemez blokkjainak közvetlen elérése 


Programozási munkánk során az adatfeldolgozási feladatoknál nem kell foglalkoznunk 
azzal, hogy fizikailag hogyan történjen az adatállományok elhelyezése a lemezen. Erről a 
DOS gondoskodik. Igényesebb feladatoknál azonban előfordul, hogy szükségünk van a 
lemez egy adott blokkjának tartalmára és rendkívül körülményes lenne, ha ezt a feladatot az 
eddig megismert file-kezelő utasításokkal kellene megoldanunk. A DOS megadja a lehetősé- 
get arra, hogy a lemez elemi adatterületeit, a blokkokat közvetlenül elérjük, azaz tartalmukat 
beolvassuk, vagy felülírjuk. Ezekhez a műveletekhez egy adatcsatornát és egy puffert kell 
használnunk. Az adatpuffer feladata az adatok átmeneti tárolása írás vagy beolvasás előtt. 
Az OPEN utasításban a dt file-név utal arra, hogy közvetlen blokkműveleteket akarunk 
végezni: 


OPEN 1.82, "dt" 


A fenti utasítással az 1-es logikai file-hoz (a 8-as egységen) hozzárendelünk egy közvetlen 
elérésű (random) file-t. Az adatátvitel a 2-es csatornán keresztül történik. A csatornaszám 
értékének 2-14 közé kell esnie. A program további részében ezt az adatcsatornát más célra 
nem használhatjuk, a második alkalmazás pillanatában ugyanis a DOS az elsőt automatiku- 
san lezárja. 

Az OPEN végrehajtásakor a DOS keres egy szabad adatpuffert és hozzárendeli az általunk 
használt adatcsatornát. Az OPEN-t követő GET utasítással lekérdezhetjük ezt a pufferszámot: 


100 OPEN 1.82, "34" 

110 GET4 1, A$ 

120 PRINT ASC (A$--CHRS$(0)) 
RUN 

3 


A mi esetünkben tehát a 3. puffer volt szabad. A pufferek számozása O-tól 4-ig terjed. Ezek 
egyenként 256 byte-ot foglalnak le (ugyanúgy, mint a lemezen levő blokkok), és a VC 1541-es 
egység tárában az alábbi tárcímeken helyezkednek el: 


PUFFERSZÁM TÁRTERÜLET 


$300-$3FF, 768-1023 
$400-$4FF, 1024—1279 
$500-$5FF, 1280-1535 
$600-$6FF, 1536-1791 
$700-$7FF, 1792—2047 


AGCNV- OO 
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A 4. puffer általában foglalt, mivel a DOS a BAM-ot itt tárolja. Ha file-okkal dolgozunk, a 3. 

puffer sem használható, mivel ezt a tartalomjegyzék foglalja el. Ha közvetlen lemezműveletek- 

nél egy meghatározott puffertárat akarunk lefoglalni, ezt a következőképpen adhatjuk meg: 
OPEN 1.82, "4437 

Az utasítás a 3. puffert rendeli hozzá a 2. csatornához ($600-$6FF), ha az még szabad. 

Általában jobb, ha a pufferválasztást a DOS-ra bízzuk. 

Konkrét pufferválasztásnál le kell kérdeznünk a hibacsatornát: 


130 OPEN 15,8,15 
140 GET4t15, A$ : PRINT A$; : IF ST 64 THEN 140 


Ha a puffer már foglalt, az alábbi hibaüzenetet kapjuk: 
70, NO CHANNEL, 00, 00 


Ha nem dolgozunk más file-lal, maximum 4 csatornát nyithatunk meg közvetlen eléréshez. 


P. 30 
10 open 1,8,15,"7i19":is2:rem parancscsatorna 
29 open 2,8,2,"§": gosubi1OoOo 

30 open 3,8,3,"4§": gosubiOoo 

40 open 4,8,4,"it"": gosub1Ooo 

59 open 5,8,5,"$": gosub1iOg9p 

60 open 6,8,6,"$": gosubiOog 

70 end 


100 gettti ypa$:print asc(a$tchr$(0)) 
119 isíti: rem pufferszam 

120 gettHi,a$:printa$;:ifstC264then120 
130 return 


3 

00, OK,00,00 
2 

00, OK,00,00 
1 


00, OK,00,00 

0 
00, OK,00,00 

199 
70, NO CHANNEL ,00 


A P.30-as program futtatási eredményéből láthatjuk, hogy mi történik az 5. csatorna megnyi- 
tásakor 

A közvetlen elérésű utasítások a lemezről beolvasott információt a pufferbe továbbítják, 
amelyeket innen a szokásos módon INPUT dt vagy GET tt utasításokkal olvashatunk be a 
tárba. k 

Az INPUT át utasítást a pufferben tárolt szövegtípusú változók beolvasására csak akkor 
használhatjuk, ha hosszuk nem több, mint 88 karakter, CHR$ (13) karakterrel vannak 
egymástól elválasztva, és ha a szövegben vezérlőkarakterek vagy elválasztókarakterek (vesz- 
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sző, kettőspont) nem szerepelnek. Ha ezek a feltételek nem teljesülnek, az INPUT dt helyett 
a GET3t utasítást alkalmazhatjuk, amely karakterenként végzi a beolvasást. 
A karakterenkénti beolvasás során az üres füzért külön kell kezelni: 


100 GET4H2,A$ : IF A$—" " THEN A$—CHRS (0) 


A legkényelmesebb megoldás a 4.3.1. alfejezetben ismertetett INPUTs utasítás, amelyben 
paraméterként megadhatjuk a beolvasandó karakterek számát (ennek értéke maximum 255 
byte, tehát majdnem a teljes puffertár), és nem kell külön foglalkoznunk sem az elválasztó 
karakterekkel, sem a nulla-byte-tal (CHR$ (0)). Az alábbiakban részletesen bemutatjuk az 
összes közvetlen elérésre alkalmas utasítást és számos példát arra, hogy milyen speciális 
programozási feladatokban használhatók célszerűen. 


2.2. A közvetlen elérésű utasítások 


A címben jelzett utasításokkal a lemez tetszőleges adatblokkját közvetlenül kezelhetjük; 
beolvashatjuk, tartalmát módosíthatjuk. Minden ilyen utasítást a 15-ös parancscsatornán 
keresztül küldünk az egységhez, tehát a parancscsatornát előzetesen mindig meg kell nyitni. 
A közvetlen elérésű utasításokat leggyakrabban a lemezre, ill. a lemezen tárolt file-okra 
vonatkozó adminisztratív információkkal való manipulálás során alkalmazzuk. Ezeket az 
információkat a DOS minden lemezen fix helyen, a 18-as sávon tárolja. A 18-as sáv belső 
szerkezetét a 3.4. fejezetben behatóan ismertetni fogjuk, de mivel a közvetlen elérésű utasítá- 
sok bemutatására szolgáló mintaprogramok többnyire a 18-as sávon lévő adatblokkokkal 
dolgoznak, előzetesen közlünk néhány adatot az itt tárolt információkról. Az adminisztrációs 
bejegyzéseket három alapvető részre oszthatjuk: 

1. a lemez adatai 

2. a lemez blokkjainak foglaltsági térképe (BAM) 

3. a lemezen tárolt file-okra vonatkozó bejegyzések 
A lemez adatai és a BAM a 18 sáv 0-s szektorán helyezkednek el, a file bejegyzések pedig 
a 18-as sáv 1-es szektorán. A lemezen tárolt file-ok adatblokkjait a DOS ún. láncolással tartja 
nyilván. Ez azt jelenti, hogy minden adatblokk első két byte-ja az adott file következő 
adatblokkjának sávját és szektorát tartalmazza. Mivel a 18-as sáv is egy speciális file-ként 
szerepel, ennek adatblokkjai is a fent leírt módon vannak összeláncolva. 


2.2.1. A Block-Read (B-R) utasítás 


A Block-Read utasítással beolvashatunk egy blokkot egy előzetesen megnyitott pufferbe. Az 
utasítás rövidítése: B-R. 

A 2.44. alfejezetben felsorolt ún. user utasítások közül az Ut majdnem azonos a B-R 
utasítással, a különbség mindössze annyi, hogy míg a B-R az olvasást a második byte-tól 
kezdi, az U1 a teljes adatblokkot beolvassa. Az utasítás formátuma: 


U1 Csatornaszám Meghajtóegység Sáv Szektor 
A csatornaszám azonos azzal, amit az OPEN-ben megadtunk, a meghajtóegység száma a 
VC 1541-nél mindig 0. Az alábbi programmal beolvassuk a 18-as sáv 0-s szektorából az első 
két byte tartalmát: 
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P. 31 


19 open 1,8,15 

20 open 2,8,2,"§W" 

309 printti, "ul 2 0 18 0" 

40 getW2, a$,b$ 

50 printasc(a$tchr$(0)) pasc(b$trchr$(D)) 
60 close2:closel 


Az eredmény 18 1. Mivel ez a két byte egy adatblokk két első byte-ja, láncolási információt 
tartalmaz, nevezetesen azt mutatja, hogy a 18-as sávon elhelyezett nyilvántartás következő 
adatblokkja a 18-as sáv 1-es szektora, ami éppen a tartalomjegyzék első adatblokkja. 

A B-R utasítás alkalmazására több mintaprogramot találunk az alábbiakban. A TEST/DEMO 
lemez DISPLAY T8S programja is ezt az utasítást használja a BAM beolvasására, ill. annak 
grafikus kijelzésére. 

A B-R utasítással beolvasott adatblokk 256 byte-ját GET 4t utasítással olvashatjuk be a tárba. 
A P.33. programmal a 18-as sáv 0-s szektorából a lemez nevét és azonosítóját olvassuk be 
a 144. byte-tól kezdődően. 

A fejezet elején leírt láncolási szabályt alkalmazva, B-R utasítással kiírhatjuk képernyőre 
azokat a sáv- és szektorszámokat, amelyeken egy meghatározott file adatblokkjai található- 
ak. Ehhez csak a file első adatblokkjának helyét kell meghatározni (I. 4.1.1. alfejezet), majd 
az adatblokk első két byte-ját rendre beolvasva a láncoláson végighaladni. A file végét az 
jelzi, hogy a következő adatblokk sávjainak száma helyett a nulla áll. Ekkor a következő byte 
megadja, hogy az utolsó sávon hány byte-ot foglal még el a file. Ha az alábbi mintaprogram- 
nak indulásként a 18-as sáv- és a 0-s szektorszámot adjuk, a BAM, ill. a tartalomjegyzék 
adatblokkjainak sáv- és szektorszámát kapjuk meg. 


P.32 


100 open 1,8,15 

110 open 2,8,2,"§" 

120 input"Sav es szektor";t,s 

130 printti,"ui 2 0";t;zs 

140 gett2,tí,s$ 

150 tsasc(t$tchr$(0)) :sszasc(s$tchr$(D)) 
160 if t:0 then close2:closei:end 

170 print t;"sav",s;"szektor" 

180 goto 130 


2.2.2. A Block-Pointer (B-P) utasítás 
Ha a lemez nevét és azonosítóját (amely a 18-as sáv 0-s szektorának 144. byte-ján kezdődik) 
akarjuk beolvasni, az előző módszerrel 143 byte-ot át kell olvasnunk, hogy a névhez hozzájut- 
hassunk. Egy tetszőleges byte elérését megkönnyíti a Buffer-Pointer utasítás. Ezzel az utasí- 
tással tetszőlegesen beállíthatjuk azt a mutatót (pointer), amely meghatározza az aktuális 
írás vagy olvasás kezdőpozícióját a pufferben. Az utasítás formátuma a következő: 

B-P Csatornaszám Pozíció 


Most már közvetlenül olvasható a lemeznév: 
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P.33 


1909 open 1,8,15 

119 open 2,8,2,"§" 

1209 printt1,"ul1 2 18 0" 

1309 printW1,"b-p 2 144" 

140 foriz 1 to 16: rem maximalis hossz 
150 gett2,a$:ifaszchr$(160)then170 

160 printa$;:next 

170 close2:closei 


A blokk beolvasása után a puffermutatót 144-re állítottuk, ezután 16 byte olvasása következik, 
hacsak közben a rendszer nem talált CHR$(160) karaktert (Shift Space), amely a név végét 
jelenti. A byte-ok a pufferban 0-tól 255-ig vannak számozva, így az első byte a 0. Egy blokknak 
U1-gyel történő olvasásakor a puffermutató automatikusan a nulladik byte-ra állítódik. 
A puffermutató mozgatásakor teljesen szabadon járhatunk el. A fenti példánkban például 
a név olvasása után a 2. byte olvasása egyszerűen megvalósítható, ha a puffermutatót erre 
a byte-ra állítjuk: 


PRINT 1, "B-P 2 2" 


2.2.3. A Block-Write (B-W) utasítás 


A Block-Write utasítással a puffertár tartalmát beírhatjuk a lemez bármely blokkjába. 
A Block-Read és Block-Write utasítások együttes használatával bármely blokk tartalmát 
közvetlenül módosíthatjuk. A B-W utasítással egyenértékű az U2 user utasítás (I. 2.4.4. 
alfejezet), azzal a különbséggel, hogy a B-W utasítás a kiírási művelet végrehajtása közben 
a puffermutató pillanatnyi tartalmát beírja a puffer első byte-jába. Ha írás során ezt el akarjuk 
kerülni, az U2 utasítást kell használnunk. Az utasítás formátuma ugyanolyan, mint a B-R 
utasításé: 


U2 Csatornaszám Meghajtóegység Sáv Szektor 
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109 open 1,8,15 

110 open 2,8,2,"§H" 

120 printt2,"teszt. adat" 
130 print$i,"u2 20 1 0" 
140 close2:closei 


A TESZT ADAT szöveget először a kettes csatornához tartozó pufferbe, majd a lemez 1. 
sávjának 0. szektorába írjuk. Az U1 utasítással a puffer tartalma és a puffermutató nem 
változik. 

Nézzük meg, hogyan használhatjuk a Block-Write utasítást a lemez nevének megváltoztatá- 
sára. Ha az új lemeznév 16 karakternél rövidebb, CHR$ (160) karakterekkel 16 karakterre kell 
kiegészítenünk, mielőtt felírnánk a lemezre. Ismét a B-P utasítást alkalmazzuk, mellyel a 
mutatót a pufferen belül a kívánt pozícióra állítjuk: 


86 


P.35 


100 open 1,8,15 

119 open 2,8,2,"§" 

129 printtti, "ui 2 B 18 0" 

1539 printt1,"b-p 2 144" 

140 a$-"1lemeznev" 

150 if len(a$)Ció then a$sa$itchr$(160):rgoto 150 
160 printti2,a$; 

170 printtt1,"u2 2 0 18 0" 

1809 close2 

199 printtt1,"i0":closel 


Először beolvassuk a 18. sáv 0. szektorát a pufferba, majd beállítjuk a puffermutatót a 
lemeznév pozíciójára és beírjuk a 16 karakter hosszú nevet a pufferbe. A 170. sorban a puffer 
tartalmát visszaírjuk az eredeti blokkba és a 2. csatornát lezárjuk. Végül a lemezt inicializáljuk, 
hogy a BAM-ot és a nevet a DOS tár átvehesse. Ha most a tartalomjegyzéket betöltjük, 


LOAD "$"8 
LIST 


látható, hogy a lemez új nevet kapott. 


2.2.4. A Block-Allocate (B-A) utasítás 


A Block-Allocate utasítás feladata, hogy egy blokkot a BAM-ban foglaltnak minősítsen. Erre 
akkor van szükség, ha közvetlen eléréssel olyan blokkokat írtunk a lemezre, amelyek nem 
tartoznak egy file-hoz sem, így automatikusan nem is minősülnek foglaltnak. Ha ezt az 
utasítást nem hajtjuk végre, egy soron következő írás műveletnél a blokkot a DOS lefoglalja 
és felülírja. A Block-Allocate utasítás formátuma a következő: 


B-A Meghajtóegység Sáv Szektor. 
Ha a lefoglalandó blokk már foglalt volt, úgy a 65. NO BLOCK hibaüzenetet kapjuk. 
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1909 open 1,8,15 

119 input"sav, szektor";t,s 
1209 printtii1, "b-a O0";t;s 

139 inputtti,a$$,b$,c$s$,d$ 
1409 print a$,b$,c$,d$ 


A program bekéri azt a sávot és szektort, amelyeket foglaltnak akarunk minősíteni. Ha a blokk 
még szabad, a program lefoglalja és a 00, OK,00,00 üzenet jelenik meg. Ha viszont a blokk 
már foglalt volt, a 65, NO BLOCK TT,SS üzenetet kapjuk. Az üzenet sáv- és szektorszáma — 
TT és SS - adja meg az első szabad szektort és sávot. Ha azonban a 65-ös hibaüzenetnél 
a sáv- vagy a szektorszám egy nullát ad vissza, az azt jelenti, hogy már nincs szabad sáv- 
és/vagy szektor-számú blokk. Az alábbi program automatikusan mindig a következő szabad 
szektort foglalja le: 
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P.37 


109 open 1,8,15 

119 input"sav, szektor";t,s 

1209 printtt1,"b-a o0";t;s 

139 inputtti a$,b$, tt, ,ss 

149 if a$-"00"/"then190 

159 ifa$C2"ós"thenprinta$","b$", "tt", "ss:end 

160 if tt 5 0 then print"Nincs tobb szabad blokk":end 
170 if tt-18B then tt-19:ssz0 

180 t-tt:szss:gotol20 

199 print tt". sav"ss". szektor lefoglalva." 


A 170. sorban a 18-as sáv lekérdezése megakadályozza, hogy a tartalomjegyzékhez tartozó 
blokkot foglaljunk le, hiszen ezzel a lemez legfontosabb információterületét rontanánk el. Ha 
olyan blokkot próbálunk lefoglalni, amely egyáltalán nem létezik, például a 20. sáv 21. 
szektorát, az alábbi hibaüzenetet kapjuk: 


66, ILLEGAL TRACK OR SECTOR,20,21 


Ha a BAM-ban egy blokk foglaltnak minősül, akkor a blokkot más file nem tudja felülírni. 
A blokk egészen addig foglaltnak minősül, amíg a lemez nem kap VALIDATE utasítást (a 
BASIC 4.0-ban COLLECT). Ez az utasítás egy új BAM-ot állít össze, ami a következőképpen 
történik. Mivel egy file összes blokkja össze van láncolva, a lemezen a file nyomon követhető. 
A láncolást a VALIDATE utasítás érvényesíti, azaz minden blokkot foglaltnak jelez, amely egy 
file-hoz tartozik. A tartalomjegyzékben s-gal jelölt, még le nem zárt file-ok ekkor törlődnek. 
Így a B-A utasítással lefoglalt, de szabályos file-hoz nem tartozó összes blokkok is újra 
felszabadulnak. Ha tehát blokkokat foglalunk le, melyek nem tartoznak a tartalomjegyzékben 
nyilvántartott egyetlen file-hoz sem, a VALIDATE utasítást nem célszerű használni, ilyenkor 
ugyanis az összes ilyen blokk ismét felszabadul. 


2.2.5. A Block-Free (B-F) utasítás 


A Block-Free utasítás a Block-Allocate utasítás ellentéte, azaz egy blokkot újra felszabadít 
a BAM-ban. 
Formátuma hasonló a Block-Allocate utasításáéhoz: 


B-F Meghajtóegység Sáv Szektor 


100 OPEN 1.8,15 
110 PRINTdH 1,/"B-F 0 20 97 


A fenti példában felszabadítjuk a BAM-ban a 20. sáv 9. szektorán levő blokkot. Ha a blokk 
már szabad volt, nem kapunk hibaüzenetet. A blokkok lefoglalása és felszabadítása nem 
érinti a Block-Write és a Block-Read utasításokat. A B-W utasítással ugyan felülírhatunk egy 
blokkot, de az ettől még nem válik foglalttá a BAM-ban. Ha a lemezen csak közvetlen elérésű 
file-ok vannak, elvileg nem szükséges a leírt blokkokat foglaltnak minősíteni, miután más file-t 
már nem írunk a lemezre. Ilyen esetben akár a tartalomjegyzék-blokkokat is teleírhatjuk a 18. 
sávon, s így 672 blokkot használhatunk a VC 1541-es készülék lemezén. 
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2.2.6. A Block-Execute (B-E) utasítás 


A Block-Execute utasítás feladata az, hogy egy blokkot lemezről beolvasson a pufferbe és 
a puffer tartalmát gépi kódú programként futtassa a DOS-ban. Azokat a rutinokat, amelyeket 
íly módon akarunk futtatni, a B-W vagy az U2 utasítással felírhatjuk a lemez valamely 
szektorára, a későbbiek során a Block—Execute utasítás segítségével tölthetjük egy pufferbe, 
majd ezt gépi programként futtathatjuk. Ehhez természetesen a DOS felépítésének beható 
ismerete szükséges. A B-E utasítás alkalmazásakor, ha a gépi kódú rutint egy fix területre, 
azaz egy meghatározott pufferbe akarjuk elhelyezni, a közvetlen elérésű csatorna megnyitá- 
sakor meg kell adni a pufferszámot. A Block-Execute utasítás formátuma a következő: 


B-E Csatornaszám Meghajtóegység Sáv Szektor 


100 OPEN 1,8,15 
110 OPEN 2.82, "3437 
120 PRINT 4 1, "B-E 2 0 17 12" 


Itt a 3. puffert ($600-$6FF) a 2. csatornához rendeljük hozzá. Ezután a 17. sáv 12. szektorának 
tartalmát betöltjük ebbe a pufferbe, s itt programként futtatjuk. . 
A Block-Execute utasítás a Block-Read és a Memory-Execute utasítással helyettesíthető. 
A gépi kódú programok DOS-ban történő futtatására vonatkozó példákat a 2.4. fejezetben 
ismertetjük. 


2.3. A közvetlen elérés alkalmazásai 


A közvetlen elérésű utasítások alkalmazására számos lehetőség kínálkozik. A BAM-szektoron 
belüli manipulálásokkal megváltoztathatjuk a lemez nevét vagy az ID-t. A tartalomjegyzék 
használaton kívüli byte-jait igénybe vehetjük járulékos információk tárolására. A file-oknak 
adhatunk egy másik nevet, nyomon követhetjük egy file egyes blokkjainak láncolását, s ha 
szükséges, a saját elképzeléseink szerint eszközölhetünk változtatásokat. 

Manipulálhatunk a lemezen levő file-ok típusával. Készíthetünk például soros file-ból prog- 
ram-file-t. A tartalomjegyzéken egy nem lezárt file-t a 7. bit beállításával lezárhatunk (a 
$02-ből $82 lesz). Az ilyen file-okat a tartalomjegyzékben csillag különbözteti meg a szabályos 
file-októl. A fenti változtatást követően a csillag eltűnik. Egy file-nak a DOS által figyelembe 
vett, de utasítással mégsem elérhető tulajdonsága a törléssel szembeni védelem. Ehhez csak 
a file-típus 6. bitjét kell beállítani (a $82-ből $C2 lesz). A tartalomjegyzékben kiíratáskor a 
változtatás után egy 2 jelenik meg. A file most a SCRATCH-csel szemben immunis. Ezzel 
fontos rendszerprogramokat védhetünk meg a lemezen a spontán törlés ellen. Ezeket az 
alkalmazási területeket a 4.1. fejezet ismerteti, ahol még egyéb lehetőségekre is kitérünk. 
Az említett manipulációk alkalmazása akkor lenne a legkényelmesebb, ha beolvashatnánk 
egy szektort a lemezről, az megjelenne a képernyőn, majd a szükséges módosítás elvégzése 
után ismét visszaírhatnánk a lemezre. Ennek a feladatnak a 4.6. fejezetben ismertetett 
Disk-Monitor tesz eleget. Minden Disk-Monitorral végzett művelet előtt célszerű a lemezünkről 
másólatot készíteni. Ha ugyanis a tartalomjegyzékben vagy a BAM-ban vétünk hibát, előfor- 
dulhat, hogy a lemez egész tartalmát elveszítjük. Ha tévedésből töröltünk egy file-t vagy egy 
programot a lemezen, bosszantó lenne, ha a teljes programot újra be kellene gépelnünk. Ha 
a törlés óta még nem írtunk semmit a lemezre, a file-t nagyon egyszerűen megmenthetjük. 
Egy file törlésekor ugyanis a file adatblokkjai nem törlődnek. csak a file-típus helyére kerül 
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a tartalomjegyzékben nulla, és a BAM-ban a lefoglalt blokkok felszabadulnak. Ha a file 
tartalomjegyzék bejegyzését megkeressük és a file-típust ismét beállítjuk (a SEO0-hoz $81-et, 
a PRG-hez $82-t, az USR-hoz $83-at és a REL-hez $84-et), majd végrehajtunk egy VALIDATE 
utasítást, hogy a file blokkjai ismét foglaltnak minősüljenek, visszanyerjük az elveszített 
programot vagy adathalmazt. , 
A közvetlen elérést felhasználhatjuk olyan saját file-szerkezetek előállítására, amelyeket a 
DOS nem ismer. Ilyen esetben az új típusú file kezelését saját magunknak kell megszervez- 
nünk, olvasáshoz és íráshoz pedig alkalmazhatjuk a közvetlen elérésű utasításokat. Egy ilyen 
file-forma például az ISAM-file. Az ISAM-ot az angol Index Seguential Access Method kifeje- 
zésből, indexsoros elérésű szervezésnek fordíthatjuk. Az ISAM-file minden rekordja közvetle- 
nül elérhető, ugyanúgy, mint a relatív file esetében. Itt azonban az elérés nem a rekordsorszá- 
mon keresztül történik, hanem egy ún. elérési kulcs vagy index alapján. Ez az index nem más, 
mint a rekord egyik mezője. Ha például egy rekord 5 mezőből áll — családnév, keresztnév, 
utca, irányítószám és helység - a családnevet elérési kulcsként is definiálhatjuk. Ha ezek után 
egy olyan rekordot keresünk, amelyben a név ,Békés", az ehhez szükséges utasítást a 
,Békés" rekord olvasásának nevezzük. Nem kell tehát törődni a rekordszámmal, vagy egyéb 
rendezési kritériummal, s szöveges formában is megadhatjuk, agy melyik rekord olvasása, 
megváltoztatása, írása vagy törlése szükséges. 
Az ISAM-féle rendszerben az elérési kulcsot többnyire még egyszer különállóan is tárolni kell 
azokkal az információkkal, amelyek arra utalnak, hogy a rekord a lemezen hol található. 
A COMMODORE 64-hez is beszerezhető a MASTER programfejlesztő rendszer, amely az 
ISAM-hoz hasonló file-szerkezetekkel dolgozik és további lehetőségeket is szolgáltat. 


2.4. A DOS közvetlen elérése - a Memory utasítások 


A 2.2.6. alfejezetben bemutattuk, hogy miként lehet a programokat a DOS tárba betölteni és 
ott futtatni. A Memory utasításokkal — melyeket most ismertetünk — a DOS minden jó ligás 
elérhetjük és a RAM-ban, ill. a ROM-ban tetszőleges programot futtathatunk. 

Elérhetjük például a DOS operatív tárát, beolvashatjuk a szabad blokkok számát vagy a 
lemez nevét a BAM pufferből stb. A DOS RAM-ba történő írással megváltoztathatjuk az 
állandókat, például az egységszámot, vagy a blokk hibaüzenet előtti olvasási kísérleteinek 
számát. Rutinokat futtathatunk a DOS táron belül is. Ezek lehetnek a DOS saját rutinjai vagy 
általunk a puffer tárban elhelyezett programok, amiről már szó esett a Block-Execute utdsítás 
tárgyalásánál. 

A Memory utasítások sikeres alkalmazása természetesen feltételezi a 6502-es gépi nyelv és 
a DOS működési elvének, társzervezésének ismeretét. 


2.4.1. A Memory-Read (M-R) utasítás 

Ezzel az utasítással a DOS minden byte-ja olvasható. Az utasítást a parancscsatorna közveti- 
ti, s az olvasott byte-ot is a parancscsatornában kapjuk vissza, ahonnan a GET tól az 
információ beolvasható. ; 


Az utasítás formátuma a következő: j 


M-R CHR$(LO) CHR$ (HI) 
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Az LO és a HI a kívánt tárcímek alsó, ill. felső byte-ja. A következő program beolvas egy 
tárcímet, majd annak tartalmát betölti a DOS-ból: 


P.38 


100 open 1,8,15 
119 input"Tarcim 
1209 hisint(a/256) 
130 1o5sa—256thi 
140 printtt1, "m-r";chr$(1lo)chr$(hi) 
150 gettti,a$ 

160 print asc(a$tchr$(B)) 

170 close 1 


"za 


Ha például egy lemezen lévő szabad blokkok számát szeretnénk megtudni, nem kell a teljes 
tartalomjegyzéket beolvasnunk, csak a megfelelő byte-okat, közvetlenül a DOS tárból. 


P.39 


100 open 1,8515,"i0" 
1109 print$1,"m-r"zchr$(250)chr$(2) 
1209 gettija$zifa$-"" then a$szchr$(W) 
150 printt1, "m-r"zchr$(252)chr$§(2) 
140 gettti ,b$:ifb$-"" then b$-chr$(0) 
. 159 print asc(a$) t256ótasc(b$)" blokk szabad" 
160 closeil 


Ezzel a megoldással minden egyes olvasandó byte-hoz M-R utasítást kell végrehajtanunk. 
Ha egyszerre több byte-ot akarunk beolvasni, az M-R utasításban meg kell adni az olvasandó 
byte-ok számát (harmadik paraméterként): 


M-R CHR$ (LO) CHR$ (HI) CHR$ (SZÁM) j 
Ezt a lehetőséget felhasználva egy M-R utasítással a lemez nevét is beolvashatjuk a BAM 
puffer tárából, ha tudjuk, hogy inicializáláskor vagy a file- elérés előtt a BAM a $700-as címtől 
kezdődően töltődik be a pufferbe. 


P.40 


100 open 1,8,15,"i0" 

110 printii , "m— r"chr$(144)chr$(7)chr$(16) 
120 inputtti, a$ 

139 print a$ új 
140 closei . 


dent rutinnal a programból ellenőrizhetjük, tes g megis lemezt helyezett-e a felhasználó 


az egységbe. 
Az M-R és az alábbiakban következő M-W utasításokkal megtehetjük, hogy a DOS RAM-terü- 
letről betöltünk egy DOS rutint a puffer tárba, ott saját elképzelésünk szerint módosítjuk, majd 


innen futtatjuk. , 
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2.4.2. A Memory-Write (M-W) utasítás 


A Memory-Read-del ellentétes utasítás, melynek feladata az, hogy adatokat írjon a DOS 
tárba. Természetesen csak a DOS-RAM-0-s lap (zero page), a verem (stack), a puffertár, 
valamint az esetleges input/output területek írhatók felül M-R utasítással. Az utasítás formá- 
tuma a következő: 


M-W CHR$ (LO) CHRS$ (HI) CHR$ (SZÁM) CHR$ (ADAT1) CHR$ (ADAT2) 


Itt annyi adatot vihetünk át, amennyit a ,szám"-ban meghatároztunk, elméletileg tehát 
255-öt. Az input puffer mérete miatt az átvihető byte-ok száma utasításonként 34-re korlátozó- 
dik. Az utasítás az egységszám megváltoztatására is alkalmas (Il. a DISK ADDR CHANGE 
programot a 4.2.3. alfejezetben). Az egységszám két tárrekeszt foglal el a 0-s lapon. A $77 
címen (119) van az egységszám -t $20 (32) LISTEN esetén, vagyis amikor a géptől érkeznek 
az adatok az egységhez. Az ezt követő címen van az egységszám t $40 TALK esetén, vagyis 
amikor az adatok érkeznek a géphez. Mivel a címek tárolása külön-külön történik, az 
adáshoz és a vételhez különböző egységek is használhatók. Az alábbi példában a vevő 
egység számát 9-re, az adó egység számát 10-re állítottuk be. A géptől érkező információk 
a 9-es egységhez irányítódnak, a géphez érkező információk a 10-es egységről jönnek. 


P.41 


100 open 1,8,15 

110 printti1,"m-w"chr$(119)chrá§(0)chr$(2)chri(9432)chr$(10164) 
1290 clasel 

140 openi,9,15 

150 open2,10,15 

160 printt$1,"10" 

170 inputti2,a$,bt,c$,d$ 

188 print a$§","b$" "cs" "dé 

1909 close2:closel 


Programok ezen a módon nem tölthetők be, ugyanis a DOS arról az egységről kísérli meg 
a program betöltését, ahonnan a file-név érkezett. 

Az egységszámot nyilván akkor kell módosítanunk, ha egy géphez egynél több lemezegysé- 
get kötünk, és a másodikat pl. 9-es egységként szeretnénk használni. 

A fenti szoftveres változtatás azonban csak addig marad érvényben, amíg nem következik 
egy RESET (pl. ha kikapcsoljuk a gépet). Ha az egységszámot véglegesen meg akarjuk 
változtatni, az egységben az elektromos összeköttetést meg kell szakítani (ez egy vékony 
ónréteg átszakítását jelenti, ami bármikor visszaforrasztható). 

Miután a DOS számos paramétere a ROM-ban helyezkedik el, a DOS funkcióit messzemenő- 
en változtathatjuk. Például azt a lépéstávolságot, amellyel egy sávon a szektorok foglalttá 
válnak (a 105-nek megfelelő $69 cím tartalma alapállapotban 100), vagy egy hibaüzenet 
kialakulása előtt az olvasási kísérletek számát (a $6A cím 106 tartalma általában 5). A para- 
méterek további címeit a 3.1.2. alfejezet foglalja össze. 


2.4.3. A Memory-Execute (M-E) utasítás 


Ezzel az utasítással behívhatjuk és futtathatjuk a DOS tárban lévő programot. A programokat 
RTS-sel (Return from Subroutine, $60) kell lezárni. 
Az utasítás formátuma a következő: 
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M-E CHR$(LO) CHR$(HI) 


Itt a LO és HI a gépi rutin kezdőcímének alsó és felső byte-ja. Az M-E utasítással nemcsak 
a DOS — ROM rutinjait futtathatjuk, hanem az M-W-vel írt, puffertárban elhelyezett saját 
rutinjainkat is. Példaként nézzük most meg, hogyan hívhatunk le egy hibaüzenetet előállító 
DOS rutint a ROM-ból. A $EFC9 címen a 72, DISK FULL üzenetet kiíró rutin található. Behívása 
a következőképpen néz ki: 


P.42 


190 open 1,8,15 

119 printH1,"m-e"chr4(201)chr4(259) 
120 inputWHi, af ,b$,c$,d3$ 

139 print a$","b$","cs","d$§ 

149 closeil 


A 110-es sorban a rutin kezdőcímét ($EFC9) felbontjuk alsó és felső byte-ra (239—$EF, 
201 -$C9) és ezt adjuk meg az M-E utasítás paraméterenként. Ezután következik a hibacsa- 
torna lekérdezése és az üzenet kiíratása: 


72, DISK FULL, 00, 00 


Ha saját programot akarunk futtatni, azt az M-E utasítás előtt be kell írnunk valamelyik 
puffertárba. Ha a programot gyakrabban használjuk, a puffer tartalmát a lemezen tárolhat- 
juk, s a továbbiak során egy olyan B-E utasítással futtathatjuk, amely az adott blokk tartalmát 
beolvassa a pufferbe, majd automatikusan indítja a programot. A DOS rutinjaival próbáljuk 
meg kiíratni a tartalomjegyzéket a megszokottól eltérő formában (a járulékos paraméterek 
ugyanolyanok, mint a 4.1.1. alfejezetben leírt programban), majd számoljuk meg, hány file van 
a lemezen. A rutin elkészítésénél használjuk fel a DOS-listát. Ha megterveztük a tartalomjegy- 
zék új formátumát, a file-bejegyzésekből minden nehézség nélkül meghatározhatjuk a kívánt 
paramétereket és kialakíthatjuk a kívánt formátumot is. 


2.4.4. A User (U) utasítások 


A user utasítások lehetőséget adnak a lemeztárban elhelyezett programok futtatására. Az 
utasítások formátuma a következő: 


UX 
Itt az X az abc egy tetszőleges betűje A-tól J-ig, vagy egy egész szám 1 és 9 között illetve ":" 
(a kettőspont a 10-et helyettesíti). Az utasítás behívásakor a rendszer a DOS-ban az alábbi 
címekre ugrik: 


UA U1 $CD5SF Block-Read helyett 
UB U2 $DC97 Block-Write helyett 
UC 03 $0500 
UD U4 $0503 
UE U5 $0506 
UF U6 $0509 
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UG U7 $050C 


UH U8 $050F 
UI U9 $FFO1 
UJ s: $EAAO Bekapcsolás-RESET 


Az U1 és az U2, valamint az UA és az UB utasítást már ismerjük; ezek a Block-Read és a 
Block-Write utasításokat helyettesítik. Az U3-U8, illetőleg az UC-UH utasítások az 1280-$500 
címtől kezdődően a 2. pufferbe ugranak (I. a 2.1. fejezetet). Amennyiben több utasítást 
akarunk használni, a 2. pufferben elhelyezhetjük a rutinok címtáblázatát; ha viszont csak egy 
user utasítás (U3) használatos, a program közvetlenül $500-nál kezdődhet. 

Az UJ user utasítás a RESET vektorra ugrik: ezáltal az egység bekapcsolás utáni állapotba 
(alapállapot) kerül. 


P.43 


1099 open 1,8,15 ; 
119 printtti, "uj" : 

129 forizi to" 19900:next 

130 getti,a$:printa$z:ifstcC264then150 

140 closei 


A 120. sor megvárja az egység RESET-jét. Ezután a 130. sorban beolvassuk az egység 
bekapcsolási üzenetét. 

A user utasítások alkalmazásakor paramétereket is átadhatunk a rutinoknak. Az utasításfü- 
zér az 512-es ($200) címtől kezdődően helyezkedik el az input-pufferben. Itt a paraméterek 
például a címek, az utasításkódok és a file-nevek lehetnek. 

A user utasítások arra is felhasználhatók, hogy a lemezegység utasításkészletét bővítsük 
vagy egy saját file-szerkezetet valósítsunk meg. Az összes user utasítás helyettesíthető a 
megfelelő címeket tartalmazó M-E utasításokkal, a user behívás azonban rövidebb és átte- 
kinthetőbb. Í s . 
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3. FEJEZET ji tot TÁ 
A LEMEZEGYSÉG ÉS A LEMEZ MŰSZAKI FELÉPÍTÉSE 


3.1. Az 1541-es felépítése 


3.1.1. A lemezegység kapcsolási rajza 


, motorja , 
gnesfej lepte- 


Ma 
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3.1.2. A DOS tártérképe (Memory-Map) - ROM, RAM, I/O 


A VC 1541-es lemezegység tártérképe: 


65535 $EFFEF 


16 K 


Operációs rendszer 


49152 $C000 


7183 $1COF 


7168 VIA lemez vezérlőegység $1C00 


6159 $180F 
VIA soros busz 
6144 $1800 


2047 $07FF 


zs 
RAM 


0 $0000 


Az I/O foglaltsága (VIA 6522): 


VIA 6522 1, a soros busz kapuja 


$1800 
$1800 
$1802 
$1803 
PB 0: 
PB 1: 
PB 2: 
PB 3: 
PB 4: 


PB 56: 


CB 2: 


B kapu 

A kapu 

B kapu - adatáramlási irány 
A kapu - adatáramlási irány 
DATA IN 

DATA OUT 

CLOCK IN 

CLOCK OUT 

ATN A 

egységszám 

ATN IN 
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VIA 6522 2, a motor és az író-/olvasófej vezérlés kapuja 


$1C00 B kapu, vezérlőkapu 

$1C01 A kapu, adatok az író-/olvasófejtől és az író-/olvasófejhez 
$1C02 B kapu - adatáramlási irány 
$1C03 A kapu — adatáramlási irány 

PB 0: STP I 

PB 1: STP O - a fejmozgást végző motor 
PB 2: MTR - a meghajtóegység motorja 
PB 3: ACT - LED a meghajtóegységen 
PB 4: WPS - írásvédelem kapcsoló 

PB 7: SYNC 

CA 1: Byte Ready 

CA 2: SOE 


A rendszerváltozók tárcímei: 


0 $00 0. puffer utasításkódja 

1 $01 1. puffer utasításkódja 

(4 $02 2. puffer utasításkódja 

3 $03 3. puffer utasításkódja 

4 $04 4. puffer utasításkódja 

6 $06—$07 0. puffer sávja és szektora 

8 $08—-$09 1. puffer sávja és szektora 

10 $0A—-$0B 2. puffer sávja és szektora 

12 $0€-$0D 3. puffer sávja és szektora 

14 $0E—$0F 4. puffer sávja és szektora 

18 $12-$13 0. meghajtóegység azonosítója (ID) 

20 $14-$15 1. meghajtóegység azonosítója (ID) 

22 $16-$17 ID 

32 $20-$21 Fejtovábbítási kapcsoló (flag) 

48 $30-$31 A vezérlés puffermutatója 

57 $39 8 állandó fejléc (header) kezdete 

58 $3A Az adatpuffer paritása 

61 $3D Egységszám a lemezvezérlő (Disk-controller) számára 
63 $3F A pufferszám a lemezvezérlő számára 

67 $43 Sávonkénti szektorok száma formátumszervezéskor 
71 $47 A 7 állandó adatblokk kezdetének jelölése 
pé $49 Stackmutató (veremmutató) 

74 $4A Fejtovábbítás lépés-számlálója 

81 $51 Aktuális sávszám formátumszervezéskor 
105 $69 Olvasási kísérletek száma (5) 
106 $6A Lépéstávolság szektorhozzárendeléskor (10) 
111 $6F-$70 Címmutató az M- és a B-utasításnál 
119 $77 Egységszám t $20 LISTEN-nél 
120 $78 Egységszám t $40 TALK esetén 
121 $79 LISTEN-kapcsoló (1/0) 
122 $7A TALK-kapcsoló (1/0) 
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124 
125 
127 
128 
129 
130 
131 
132 
133 
139 
148 
153 
155 
157 
159 
161 
163 
165 
181 
187 
193 
199 
212 
213 
214 
.215 
231 
249 
$100-$145 
$200—-$228 
$24A 
$258 
$25A 
$274 
$278 
$278 
$297 
$280—-$284 
$285—$289 
$2D5-$2F9 
$2FA/$2FC 
$300-$3FF 
$400-$4FF 
$500-$5FF 
$600-$6FF 
$700-$6FF 


$7C 

$7D 

$7F 

$80 

$81 

$82 

$83 

$84 

$85 
$88B—-$8D 
$94—$95 
$99—$9A 
$98-$9C 
$9D-$9E 
$9F—$A0 
$A1—$A2 
$A3—$A4 
$A5-$A6 
$B5-$BA 
$BB-$CO 
$C1-$C6 
$C7—-$CC 
$D4 

$D5 

$D6 

$D7 

$E7 

$F9 
256-325 
512-552 
586 

600 

601 

602 

628 

632 

663 
640-644 
645-649 
725—-761 
762/764 
768-1023 
1024—-1279 
1280—1535 
1536-1791 
1792—2047 


ATN-kapcsoló vétele a soros buszról 
EOI-kapcsoló soros busza 
Meghajtóegység-szám 

Sávszám 

Szektorszám 

Csatornaszám 

Másodlagos cím 

Másodlagos cím 

Adatbyte 

Operatív tár osztáshoz 

Aktuális puffermutató 

0. puffer címe — $300 

1. putfer címe — $400 

2. puffer címe — $500 

3. putfer címe — $600 

4. putfer címe — $700 

Az input-puffer mutatója ($200) 

A hibaüzenet-puffer mutatója ($20D5) 
illo rekord, alsó (LO) blokkok száma 
it hi rekord, felső (HI) blokkok száma 
Relatív file írásmutatója 
Rekordhosszúság relatív file-oknál 
Rekordon belüli mutató relatív file-nál 
Oldalszektor-szám 

Az oldalszektorban lévő adatblokkon belüli mutató 
A relatív file adatblokkjának mutatója 
File-típus 

Pufferszám 

Sáv 

Utasításfüzér-puffer 

File-típus 

Rekordhosszúság 

Oldalszektor sávja 

Oldalszektor szektora 

Input sor hosszúsága 

File-nevek száma 

File üzemmód 

Egy file sávja 

Egy file szektora 

Hibaüzenet-puffer . 

Szabad blokkok száma 

0. puffer 

1. puffer 

2.. puffer 

3. puffer 

4. puffer 
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3.2. A DOS működési elve 


A VC 1541-es készülék intelligens lemezmeghajtó egység, amely saját mikroprocesszorral és 
operációs rendszerrel (DOS, Disk Operating System) rendelkezik. A DOS-nak nincs szüksége 
az alapgép tárkapacitására és nem veszi igénybe az alapgép műveleti idejét sem. A gép 
feladata csak annyi, hogy közvetíti az egységhez a felhasználó utasításait, amelyeket aztán 
az utóbbi maga hajt végre. 
A fentiek miatt a DOS-ra egyidejűleg három feladat hárul: 
1. Biztosítania kell az adatforgalmat a géphez és megfordítva. 
2. Az utasításokat értelmeznie kell, irányítania kell a file-ok, az ezekhez rendelt átviteli csator- 
nák és a blokkpuffer kezelését. 
3. Le kell bonyolítania az egység hardver-műveleteit. Idetartozik az egyes blokkok felírása a 
lemezre, visszaolvasásuk, valamint a lemezek formálása. 
AVC 1541-es készüléknél a fenti feladatokat a 6502-es mikroprocesszor végzi el. A feladatok 
látszólagos egyidejű elvégzése azonban csak a megszakítás-technika (interrupt) segítségével 
lehetséges. 
A DOS főprogramja gondoskodik a közölt utasítások értelmezéséről és futtatásáról. Az 
adatok és az utasítások átvitele megszakítások formájában zajlik. Ha a gép egy perifériát : 
akar igénybevenni, úgy az ATN vezetéken keresztül egy impulzust küld (ATN- attention, 
figyelem — I. az 5.1. fejezetet). Ez a külső egységen megszakítást idéz elő. Az egység megsza- 
kítja a futó programját és megjegyzi, hogy a gép adatokat akar továbbítani. Ezután dolgozza 
fel az eredeti utasítást. Ezt követően az egység további adatokat és utasításokat fogadhat 
el a géptől, s ezeket feldolgozhatja. A kapott utasítások feldolgozása után az egység várako- 
zó ciklusban van, amíg nem érkezik új utasítás a géptől. 
Az utasításfeldolgozás ezen a szinten azonban csak az utasítás logikai feldolgozására, a 
géptől érkező és a gép felé irányuló átviteli csatornák kezelésére és a feladathoz rendelt 
puffertárba írandó vagy olvasandó adatok behozására korlátozódik. A lemezvezérlő (Disk 
Controller) feladatait — mint pl. lemezek formálása, valamint az egyes blokkok tényleges írása 
és olvasása — szintén a processzor látja el. 
A lemezműveletek elvégzése is megszakításvezérléssel történik. Egy beépített óra (Timer) kb. 
14 milliszekundumonként megszakítja a lemezegység szabályos programját és az egységet 
egy olyan programhoz ágaztatja el, amely a lemezvezérlő feladatait végrehajtja. A két önálló 
program közötti kommunikáció azokon a közösen használt tárrekeszeken keresztül valósul 
meg, ahová a főprogram a lemezvezérlő program utasításkódjait elhelyezi. Amikor a megsza- 
kítás program aktív, ezekben a tárrekeszekben megvizsgálja, hogy szükséges-e valamilyen 
műveletvégzés, például lemezformálás. Ha igen, működésbe lépnek a meghajtóegység- és 
mágnesfejmotorok. Miután a megszakítás rutin véget ért, a főprogram ismét ellenőrzi a 
közösen használt tárterületen lévő információk alapján, hogy a lemezvezérlő végrehajtotta-e 
a feladatot, vagy további várakozás szükséges. Hasonló módon a főprogram arról is értesül, 
hogy valamilyen hiba lép fel, például a Read Error, vagy írás közben a DOS írásvédelmi 
tapaszt érzékelt. Így a főprogram megfelelően reagálhat, például előkészíthet egy hibaüzene- 
tet. A nagy CBM lemezegységnél a lemezvezérlő feladatát egy saját, második 6504 típusú 
mikroprocesszor látja el. A kommunikáció ebben az esetben is a közös tárrekeszeken belül 
történik. A DOS tártérképét, valamint a lemez és a soros busz kezeléséhez az I/O elemek 
áttekintését az előző fejezet tartalmazza. A DOS működésének ez a rövid áttekintése termé- 
szetesen csak vázlatosan ismerteti a funkciókat. Amennyiben az Olvasó behatóbban kíván 
tájékozódni, elemezze a VC 1541-es egységnek a 3.5. fejezetben ismertetett DOS listáját, 
amely részletesen dokumentálja a teljes 16 K-s operációs rendszert. 
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3.3. A VC-1541-es lemezformátuma . 


Az egységen használt lemez 35 sávra, a sávok pedig 17-21 szektorra vannak felosztva. 
A szektorok össz-száma 683. 

Miután a tartalomjegyzék és a BAM az egész 18-as sávot lefoglalja, 664, egyenként 256 
byte-os blokk áll rendelkezésre az adatok és programok tárolására. 

A sávok felosztása a következő: 


SÁV SZEKTOROK 
SZÁMA 
1-től 17-ig 21 
18-tól 24-ig 19 
25-től 30-ig 18 
31-től 35-ig 17 


A szektorok sávonkénti eltérő számának magyarázata, hogy a középpont felé a sávok 
rövidülnek. 


3.3.1. A VC-1541-es BAM-ja 


A BAM (Block Availability Map) feladata, hogy a blokkok foglaltságát nyilvántartsa. Minden 
blokkművelet után (tárolás, törlés stb.) a BAM aktualizálódik. Ha a BAM alapján megállapít- 
ható, hogy egy tárolandó file több blokkot igényel, mint amennyi rendelkezésre áll, akkor egy 
hibaüzenet kiírására kerül sor. Egy file megnyitásakor az átviteli utasítások aktualizálásával 
párhuzamosan a BAM-ot átveszi a DOS tár, majd a file lezárásakor visszaírja a lemezre. Az 
írás vagy törlés funkciójú utasítások a BAM-ot olvassák, aktualizálják és visszaírják. A 18-as 
sáv 0. szektorának a felépítése a következő: 


18-as sáv 0. szektora 


BYTE TARTALOM JELENTÉS 
0,1 ($00-$01) $12.$01 a tartalomjegyzék első blokkjának sávja és szektora 
7-4 ($02) $41 "A" ASCII-karakter; az 1541-es formátumára utal 
3 ($03) $00 a jövőbeni használathoz szükséges 0-kapcsoló 
4-143 ($04—$8F) foglalt és szabad blokkok térképe (a 35 sáv ábrázolásá- 


hoz éppen 354 4 — 140 byte-ra van szükség) 


A blokkok térképe úgy van kialakítva, hogy minden 4 byte jelöl egy sávot. Mint az alábbi 
táblázatból is látható, az első byte a sáv szabad blokkjainak számát tartalmazza. A fennma- 
radó 3 byte 24 bitjén helyezkednek el a sáv blokkjainak foglaltsági mutatói (minden blokknak 
megfelel egy bit). 

Egy sáv BAM bejegyzésének szerkezete a következő: 
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BYTE TARTALOM 


0) A sáv szabad blokkjainak száma 
1 0-7. szektorok bittérképe 
2 8—-15. szektorok bittérképe 
93 16-23. szektorok bittérképe 


A következő táblázat a lemez 1. sávjához rendelt 4 byte tartalmát mutatja. 


18-as sáv 0. szektora, 4-7. byte (1. sáv) 


00001010 00000000 00000011 TET PT 
($0A) ($00) ($03) ($FF) 


10 szabad blokk 1- szabad a blokk 
összesen 0— foglalt a blokk 


Egy olyan programciklussal, amely minden 4 byte-os sávbejegyzésből beolvassa az első byte 
tartalmát és ezeket összegzi, meghatározhatjuk a lemezen levő szabad blokkok számát. 


3.3.2. A tartalomjegyzék fejléce 


A tartalomjegyzék fejléce az alábbi információkat tartalmazza: 

— a lemez neve, 

— a lemez azonosítója (ID) 

— a DOS-változat száma, 

— a file neve 

— a file típusa 

— a file-onkénti blokkok száma 

— szabad blokkok. 
A fenti adatokat LOAD "$" 8 paranccsal betölthetjük a tárba, majd LIST paranccsal kiírathat- 
juk a képernyőre. 
A BAM és a tartalomjegyzék a lemez 18-as sávját teljesen lefoglalja. Az első adatblokkon (0-s 
szektor) található a BAM és a tartalomjegyzék fejléce, azután következnek a file-bejegyzések. 
Minden további blokk legfeljebb 8 file-bejegyzést tartalmazhat. Miután a BAM és a tartalom- 
jegyzék fejléce 1 blokkot foglal le, a file-bejegyzésekhez még 18 blokk áll rendelkezésre. Így 
egy lemezen maximálisan 144 file kezelhető (18 blokk, blokkonként 8 bejegyzés). A 18-as sáv 
0-s szektor első 143 byte-jának tartalmát már bemutattuk (ez a BAM). 
A tartalomjegyzék fejlécének formátuma a következő: 
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18. sáv 0. szektora 


BYTE TARTALOM JELENTÉS 
ÍGE, A TTHTTTTTTTTTTTTTTTTTTETTTETRTTTTTTTTTHTtTTTT tün] 
144-161 $90-$A1 a lemez neve SHIFT SPACE-szel kiegészítve 
162, 163 $A2,$A3 a lemez azonosítója (ID) 
164 $A4 $A0 SHIFT SPACE 
165, 166 $A5 $A6 $32, $41 "2A" ASCII karakter (formátum) 
167-170 $A7-$AA $A0 SHIFT SPACE 
171-255 $AB-$FF $00 használaton kívüli nullákkal kitöltve" 


A lemez neve ? B 
A lemez nevét (amely maximum 16 karakterből állhat) formáláskor kell megadni. 16-nál 
kevesebb karakter esetén a fennmaradó részt a DOS SHIFT SPACE-szel ($A0) tölti ki. 

Az alábbi BASIC rutin beolvassa a lemez nevét: 


P.44 

199 open 15,8,15,"i0": rem utasitascsatorna nyitas es inicialízalas 
L19 open 2,8,2,"8": ren adatcsatorna 

120 printtt15,"b-r";3250318; 0: rem 18 sav 9 szektora olvasva 

153090 printt15,"b-p";25144r rem buffer-pointer a 144. byte-ra allitva 
1409 dn$-"" s: rem fuzer torlese 

150 : rem 16 byte beolvasas (lemeznev) 

160 s: :forizíitoió 

170 : :gett2,x$ : rem egy byte olvasasa 

190 : :if asc(x$)-rióg then 200: rem shifttspace utan nem kell olvasni 

190 : :dn$zdnítx$: rem byte a dn$-be 

200 nexti 

210 close2:closel5S: rem csatornak zarasa 


A fenti rutin lefutása után a lemez neve a DN$ füzérben lesz. 


A lemez azonosítója (ID) 

A lemez azonosítóját, mely két karakterből áll, szintén formáláskor kell megadni. A DOS ennek 
alapján veszi észre a lemezcserét és tölti be az új lemez BAM-ját; ez tulajdonképpen az 
inicializálás. Miután a DOS az aktuális BAM-ot mindig a tárban tartja, ha véletlenül két lemez 
ID-je azonos, nem veszi észre a lemezcserét, nem inicializál automatikusan és ez súlyos 
hibához vezethet (az egyik lemez blokkfoglaltsági térképét ráírja a másikra!) 


3.3.3. A tartalomjegyzék formátuma 
A 18-as sáv 1-től 19-ig terjedő blokkjai tartalmazzák a file-bejegyzéseket. Ezen belül egy blokk 


első két byte-ja a következő file-bejegyzéseket tartalmazó blokkra mutat. Ha a file-bejegyzé- 
seknek vége, akkor ez a két byte $00-t és $FF-et tartalmaz. 


" A 180-tól 191-ig terjedő byte-ok egyes lemezeken a BLOCKS FREE-t tartalmazzák. 
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18-as sáv 1. szektora 


BYTE TARTALOM 
0,1 ($00,$01) A tartalomjegyzék következő blokkjának sávja és szek- 
tora 
2-31 ($02-$1F) 1. file bejegyzése 
34-63 ($22—$3F) 2. file bejegyzése 
66-95 ($42—$5F) 3. file bejegyzése 
98-127 ($62—$7F) 4. file bejegyzése 
130-159 ($82—$9F) 5. file bejegyzése 
162—191 ($A2-$BF) 6. file bejegyzése 
194—223 ($C2-$DF) 7. file bejegyzése 
226—255 ($E2-$FF) 8. file bejegyzése 


A file-bejegyzés formátuma ; 
Minden egyes file-bejegyzés 30 byte-ból áll, amelyek funkcióit a következő táblázat foglalja 
Össze: j ( 


BYTE TARTALOM 
kett ezek EÉtEz tt tttttzttküt teman ütt tttüükee...—...—..—...............———y;t... 
o ($00) File-típus 
1.2 ($01,$02) Első adatblokk sáv- és szektorcíme 
3—18 ($03—$12) File-név (SHIFT SPACE-szel kiegészítve) 
1920 ($13.$14) Csak relatív file-oknál használatos az első oldalszektor- 
blokk sáv- és szektorcíme 

21 ($15) Csak relatív file-oknál használatos 

j (rekordhosszúság) 
22-25 ($16-$19) Használaton kívül 
26,27 ($14A-$1B) Az új file sáv- és szektorcíme (2-val történő felülírásnál 
28,29 ($1C—$1D) Blokkok száma a file-ban (Low-byte, High-byte) 


A file-típus jelölése : 

A file-bejegyzés 0. byte-ja adja meg a file-típust. A DOS file-típussal dolgozik, ezek megkülön- 
böztetésére szolgál a 0. byte utolsó három bitje. A 7. bit arra utal, hogy szabályosan történt-e 
a file lezárása. Egy file megnyitásakor a típusnak megfelelően a DOS beállítja a 0. byte 
tartalmát, majd a file lezárásakor a 7. bitet. A nem lezárt file-t a kilistázott tartalomjegyzékben 
a file-típus előtt egy csillag jelöli. Ha megnyitunk egy TESZT nevű soros file-t, majd betöltjük 
és kiíratjuk a tartalomjegyzéket, a file a következőképpen jelenik meg: 


12 ZNESZT" $SEO 
Ha a file-t lezárjuk, a tartalomjegyzék következő kiírásánál a csillag már nem jelenik meg. Ha 


a file-t elfelejtjük lezárni és a későbbiekben meg akarjuk nyitni, a WRITE FILE OPEN hibaüze- 
netet kapjuk. 
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A file-típus 
Az alábbi táblázat összefoglalja az összes file-típust, a 0. byte megfelelő jelentését: 


FILE-TÍPUS BITMASZK (nyitva) " BITMASZK (zárva) 
7654 3210 HEX 7654 3210 HEX 


DELeted (törölt) 0000 0909 $00 1000 0000  $80 


SEOuential 0000 0001 $01 1000 0001  §$81 
PRoGram 0000 0010 $02 1000 0010  §$82 
USeR 00090 0011 $03 1000 0011  §$83 
RELative 0000 0100 $04 1000 0100  §$84 


A táblázat alapján úgy tűnik, hogy a 0. byte 3-tól 6-ig terjedő bitjeinek nincs funkciója. 
A DOS-listából azonban kiderül, hogy ez nem így van. 

A file-típus 6-os bitje védett file-ra utal.! 

Ha ezt a bitet 1-re állítjuk, a file a szokásos módon nem törölhető. Arra, hogy a file védett, 
a tartalomjegyzékben a file-típus után egy C karakter utal. 

A könyv 4. fejezete tartalmaz egy programot, amely segítségével lehetővé válik a file-ok 
védelme, felszabadítása és törlése. 


Az első adatblokk sávja és szektora 

A file-bejegyzés 1. és 2. byte-ja a file első adatblokkjának sáv- és szektorszámát adja meg. 
Az 1. byte a sáv, a 2. pedig a szektor száma. A blokkláncolás úgy történik, hogy az adatblokk 
első két byte-ja mutat a második adatblokkra és így tovább. Az utolsó adatblokkot arról lehet 
felismerni, hogy első byte-jának tartalma $00. A második byte az ezen az utolsó blokkon levő, 
de még a file-hoz tartozó byte-ok számát tartalmazza (alsó byte, felső byte). 


A láncolási folyamatot jól szemlélteti a könyvben közölt Disk-Monitor program: 
5:BO AO ADO AD AO ADO 00 00 00 ...... 
5:B8B 00 00 00 00 00 00 OB 00 ...... 
ED ZSNNOOKAT 13 09 54 31 .82 :TI2 
5:C8 2F 53 30 6 AO AO ADO ADO /S01 
3:DO AO AO AO Ag ADO 00 00 . s 
5:D8 00 00 00/00 00 00 06 00 ...... "ile-típus 
s:Eo 00 00 [82] [10] [dol 44 49 53 ..DIS 44 49 ús ..DIS N az I. adatblokk sávja 
5:E8 4B 20 41 44 44 52 20 43 KADDRC 9 azl. adatblokk szektora 
5:FO 48 41 4E 47 45 00 00 00 HANGE... 
5:F8 00 00 


Ez egy kivonat a TEST/DEMO lemez tartalomjegyzékéből (18-as sáv 1. szektor). Kövessük 
most nyomon a DISK ADDR CHANGE file szervezését. Az említett file bejegyzése $E2 byte-tal 
kezdődik és $FF byte-tal végződik. Ez egy PRG-file, ami a $E2 byte-ban a $82 file-típusról 
ismerhető fel. Ez a file 4 blokkot foglal el a lemezen, amit a $FE és a $FF byte-ok mutatnak. 
A bejegyzés $E3 és $E4 byte-ja a file első adatblokkjának címét adja (a $10, $00 a 16-os sáv 
0. szektorának felel meg). 
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A file tehát a 16. sáv 0. szektorán kezdődik: 


500 [10 0AL 01 04 OF 04 64 00 ....... $ 

508 97 35 39 34 36 38 2C 31 .594681 a 2. adatblokk címe 
5:10 32 00 39 04 6E 00 99 22 2.9....." 

18 03 13 11 11 11 49 4452 Ta DR 

5:20 49 56 45 20 41 44 44 52 IVE ADDR 

5:28 45 53 53 20 43 48 41 4E ESS CHAN 

5:30 47 45 20 50 52 4F 47 52 GEPROGR 

5:88 41 4D 22 00 59 04 6F 00 AM7.Y.. 

5:40 99 22 11 54 55 52 4E 20 ./TURN 

5:48 4F 46 46 20 41 4C 4C 20 OFFALL 


Ez a blokk tartalmazza a program első részét, amely ebben a formában nehezen olvasható. 
A BASIC programot a DOS a lemezen ugyanolyan formában tárolja, mint anogyan a gép 
tárában. A BASIC utasításokat 1 byte-os kódokkal ún. tokenekkel helyettesíti. Ebben az 
ábrázolásban csak a szövegek ismerhetők fel. Az első adatblokk első két byte-ja a második 
adatblokkra mutat ($10 és $0A, vagyis a 16-os sáv 10. szektora), melynek kivonata a követke- 
ZŐ: 


5 :00 9-4 34 30 00 1D 05 AO ..40... 

5 :08 SD 20 33 WWW 38 JA. LB . 00. a 3. adatblokk címe 
5:10 ved 20 46 49 4E 44 20 44 .FINDD 

5:18 52 49 56 45 20 54 59 50 RIVETYP 

5:20 45 00 39 05 AA 00 BD 20 E.9... 

s:28 36 30 30 3A 20 BF 20 43 600:.C 

5:380 48 41 4E 47 45 20 41 44 HANGEAD 

5:88 44 52 45 53 53 00 68 05 DRESS.c. 

5:40 B4 00 99 22 11 54 48 45 ..".THE 

5:48 20 53 45 4C 45 43 54 45 SELECTE 


A program ebben a blokkban folytatódik. A $00 és a $01 byte most a file 3. adatblokkjára 
mutat ($10, $14, a 16-os sáv 20-as szektora): 


5.:00 D.08 31 30 30 30 00 23 ..1000.4 

5 :08 S 28 4 BZ 22 JJ. CZ a 4. adatblokk címe 
5:10 ba 9. él AZ 20 4D 54 B2 54MT 

s:18 31 31 39 3A 20 8F 3A 20 119. 

5:20 32 30 33 31 20 56 32 2E 2031 V2. 

5:28 36 00 45 06 5E 01 8B 20 6.E... 

3.90" 43 B2 32 $2 36" 29 A7 20. 6.226 

5:38 4D 54 B2 35 30 3A 20 BF MT 950: 

5:40 3A 20 32 30 34 30 20 56 :2040V 

548 31 2E 32 00 67 06 68 01 1.2... 


Ez a program utolsó előtti blokkja. Az Olvasó már biztosan észrevette, hogy bár az adatblok- 
kok ugyanazon a sávon helyezkednek el, mégsem egymás után következnek. Ez azonban 
nem jelenti a blokkok minden rendszer nélküli lefoglalását. Az első adatblokk a 0. blokk, a 
következő a 10. blokk, tehát a számolás 10 blokkonként folytatódik, mindig 9 blokk marad 
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ki. A későbbiekben látni fogjuk ennek a látszólag nehézkes szervezésnek az értelmét. A 3. 
adatblokk a 20-as blokk. A láncolás ismét az első blokknál folytatódik, ha a 10-zel növelt 
blokkszám túllép az adott sávon! Miután a 16-os sávon 21 blokk van, az utolsó adatblokk 
a sáv 8-as blokkja, amelyet a 3. blokk első két byte-ja mutat. 


5 :00 mú (Eg) Fe) 5A 42 B2 31 28 AZ 2ZBI 

5 :08 34 30 00 14 07 AE 440... az utolsó blokk jelölése 
5 :10 "hi ta 20. 59.54 20TA7 29 .ST 

5:18 31 30 30 30 00 45 07 B8 1000.E. 

5:20 01 98 31 35 2C 22 4D 2D ..15,/"M- az utolsó blokk file-hoz tartozó 
5:28 52 22 C7 28 31 37 32 29 R"(172) byte-jainak száma 

z0.. GZ. 28 1. 36- 29. SA AT 23. (1614 

a 984 ds 49 20r 38: 49. 24 BA. BA ASZESZ 

SE B RO 297 29 40 06" 07. CWZCS 

249" Cy 28 30 29 29. 00 66 07 9(09).4. 


Itt a program végét a $00 byte $00 értéke jelzi. A $01 byte adja meg azoknak a byte-oknak 
a számát, amelyeket a program ebben az utolsó blokkban lefoglalt (a $F8 248 byte-nak felel 
meg). Most már könnyen meghatározható a program nagysága: 


3, egyenként 254 byte-ot tartalmazó blokk — 762 byte 


utolsó blokk — 248 byte 
a program nagysága: 1010 byte 
A file-név 


A file nevét a file-bejegyzés 3—18. byte-jai tartalmazzák. Ha a file neve kevesebb 16 karakter- 
nél, az üres helyeket $A0 (SHIFT SPACE) karakter tölti ki. 


Az új file sávja és szektora "átírásnál" . 
Ha tárolásnál a file-név elé (a) jelet teszünk, a DOS a file-t felülírja. Valójában ez nem felülírás, 
mert először elhelyezi az új file-t a lemez szabad blokkjain, és mivel a file ilyen néven már 
létezik, nem készít új tartalomjegyzék bejegyzést. Az új file első blokkjának címét a bejegyzés 
26. és 27. byte-ja tárolja. Az új program tárolása után a korábbi program törlődik és az eddig 
lefoglalt blokkok felszabadulnak a BAM-ban. Az új file első adatblokkjának címe betöltődik 
a bejegyzés 1. és 2. byte-jába, vagyis a file első adatblokkjának címébe, s ezzel megtörtént 
a file "felülírása". 


A file-ban levő blokkok száma 

A file-bejegyzés 28. és 29. byte-jában van megadva a file hosszúsága blokkokban. Egy file 
legalább 1 és legfeljebb 644 blokkot foglalhat le. Az első byte az alsó byte, vagyis a 2 byte-os 
szám jobboldali része. A másik byte a felső byte. 


3.4. A relatív file-ok szervezése 


A relatív file-ok szervezése során a rekordok közvetlen eltérését a DOS egy segédfile létreho- 
zásával oldja meg, amely az egyes adatblokkok lemezcímét tartalmazza. Ezt a segéd-file-t a 
továbbiakban oldalszektornak nevezzük. 
Az oldalszektorokat a rendszer minden relativ tile létrehozásakor automatikusan kialanilja, 
ezzel a programozónak nem kell foglalkoznia. 
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A következő feladaton végigkövethetjük a relatív file szerkezeti felépítését. Nyissunk meg egy 
100 karakter hosszú rekordokból álló relatív file-t. 


OPEN 2.82, "RELATIV FILE,L," 4 CHR$(100), 
majd írjuk bele a 70. rekordot: 
OPEN 1.815 
PRINT dt 1, "P" 4 CHR$(2) 4 CHR$(70) -k CHR$(0) 4 CHRX(1) 
PRINT 4 2, "70.REKORD" 
GLOSE 2: CLOSE 1 


A file-bejegyzés tárkivonata a program lefutása után: 


BE 284 990 62 45. 46... RELATN 
5:08 2D 44 41 54 45 49 AD AO -FILE 
2:10 Ag AD ADO AD AD 11 0A 64 ..$ 


53:18 00 09 009 00 00 09 ID 00 ........ 


Az első byte a file-típus ($84), a következő két byte ($11, $00; 17-es sáv, 0. szektor) pedig a 
tényleges adatterület első sávjára és szektorára utal, pontosan, mint egy soros file esetén. 
Ezt követi a file neve (16 karakter, SHIFT SPACE-szel ($A0) kitöltve. A következő három byte 
csak a relatív file-nál használatos. Az első két byte az első oldalszektor-blokk helyét mutatja 
(sáv, szektor). 

Az oldalszektor, mint már említettük, a tényleges adatblokkok címét tartalmazza, ennek belső 
felépítését részletesen megvizsgáljuk ($11, $0A; 17-es sáv 11-es szektor). A következő byte 
tartalmazza a rekordok hosszúságát, nevezetesen egy 1 és 254 közötti értéket, amely a mi 
esetünkben $64 — 100. A fix hosszúságra feltétlenül szükség van, mert a DOS ebből számítja 
ki, hogy a rekordok helyét melyik oldalszektorban kell keresni. A file-bejegyzés többi byte- 
jának jelentése ismét a szokásos; a két utolsó byte a file által lefoglalt blokkok számát adja 
meg (alsó és felső byte, $1D és $00 vagyis 29). 


Az oldalszektor felépítése és feladata 


A közvetlen elérés a következőképpen valósul meg. Ha például a 70. rekordot akarjuk 
beolvasni a relatív file-ból, a DOS megkeresi az oldalszektorban, hogy a rekord melyik sávon 
és szektorban van, majd a megtalált címről beolvassa az adatblokkot (soros tárolásnál a 
láncolás miatt ehhez végig kellene olvasni az első 69 rekordot). Most egy rekord eléréséhez 
csak néhány blokk olvasására van szükség. A fentiekben vázolt, de egy kissé leegyszerűsített 
ábrázolás után nézzük meg most közelebbről egy oldalszektor pontos felépítését. 


53:00 00 47 00 64 11 0OA 00 00 .G.$... 
5:08 00 00 00 00 00 09 00 09 ........ 
SeŐ" 11008 11 08 11 OV 117700 -.:..... 
Szt 0 MAT 82 11 00 11403 11 GE ....... 
MEZ E AT BE TT OS ATEI0 esseni 
LETE TMB EPE TAT ARE TE NAZ s táteen 
a z0. tt 08 1 15 11 09 T1 14... 


90040 08 19- 12.40: 960 107 10"... 
adú 19. 84 197 0£ "10 02 106 007... s. 
548 090 00 009 00 00 00 00 00 ........ 
2:50 00 00 00 00 00 00 00 00 ........ 
23:.58 00 00 00 00 00 00 00 00 ........ 
::60 00 009 09 00 00 00 00 00 ........ 
3:68 00 00 00 09 00 00 00 00 ........ 
5:70 00 009 00 00 00 00 00 00 ........ 
5:78 00 00 00 00 00 00 00 00 ........ 
3:B0 00 00 00 00 00 00 00 00 ........ 
3:BB 00 00 00 00 00 00 00 00 ........ 
399 00 00 00 00 00 00 00 00 ........ 
2:98 00 00 00 00 00 00 00 00 ........ 
::A0 00 00 00 00 00 00 00 00 ........ 
53:AB 00 00 00 00 00 00 00 00 ........ 
3:BO 00 00 00 00 00 00 00 09 ........ 
5:BB 00 00 00 00 00 00 00 00 ........ 
5:C0 00 00 009 00 00 00 00 00 ........ 
3:CB8B 00 009 09 00 00 00 00 00 ........ 
3:D0 009 04 VW VW 00 00 00 00 ........ 
3:D8 00 00 00 00 00 00 00 00 ........ 
3:E0 00 00 00 009 00 00 00 00 ........ 
5:FO 00 00 00 00 00 00 00 00 ........ 
3:F8B 00 00 00 00 00 00 00 00 ........ 


Az első két byte (a nulladik és az első) a szokásos módon a következő oldalszektor sávjára 
és szektorára utal (láncolás). Az általunk létrehozott file-ban a 70. rekord helyének tárolására 
elég egy oldalszektor, így itt a láncolási cím helyett az első oldalszektor által az ebben a 
blokkban lefoglalt byte-ok száma van: $47 — 71. 

A második byte tartalmazza az oldalszektor sorszámát, ami nulla. Minden relatív file max. hat 
oldalszektort tartalmazhat és ezek számozása 0-tól indul és 5-ig tart. A harmadik byte-ban 
van a rekordhossz ($64 — 100). A következő 12 byte (4-től 15-ig számozott byte-ok) tartal- 
mazza a hat oldalszektor lemezcímét (0,09 — ha a blokk még nem él). 

Tehát annak ellenére, hogy az oldalszektorok össze vannak láncolva, azaz sorosan is 
végigolvashatjuk az összeset, a láncoláson túl még minden oldalszektor tartalmazza a saját 
és az Összes többi lemezcímét. Egy rekord megkeresésekor a DOS a rekordhossz alapján 
először pontosan kiszámítja, hogy az a file hányadik adatblokkjában található. A számítás 
képlete a következő: 


(RSZ-1) a RH/254 


ahol RSZ a rekord sorszáma, RH a fix rekordhosszúság. A mi példánkban RSZ — 70, 
RH — 100, tehát a keresett adatblokk a 27-ik. 

Az (RSZ-1)sRH megadja, hogy az RH-adik rekord a file-on belül hányadik byte-on kezdődik, 
és mivel a file 256 byte-os blokkokra van tördelve, ha a blokk sorszámát akarjuk megkapni, 
a szorzatot el kellene osztani 256-tal. Minden adatblokkban azonban az első két byte foglalt 
a láncolásra, ezért csak 254-gyel kell osztani, és a kapott értékhez kettőt hozzáadni. Ha a 
rekord (a hossztól függően) átnyúlik a következő adatblokkba, akkor két adatblokkot be kell 
olvasni. 
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Az adatblokk sorszámának ismeretében most már csak az adatblokk címére van szükség. 
Minden oldalszektor 120 adatblokk lemezcímét tartalmazza. A mi példánkban a 27. adatblokk 
lemezcíme a 0. oldalszektorban van. Ha a számítás során 120-nál nagyobb értéket kapunk, 
pl. 425-öt, ezt el kell osztani 120-szal és az osztás egész része adja az oldalszektor sorszámát 
(3), az osztás maradéka pedig a szektoron belüli pozíciót (minden cím 2 byte-ot foglal el az 
oldalszektorban — alsó-, felső byte). 
Foglaljuk össze a fenti, kissé bonyolultnak látszó eljárást! 
A DOS lépései: 

1. Kiszámítja a szükséges adatblokk sorszámát. 

2. Kiszámítja, hogy az adatblokk címe hányadik oldalszektorban van. 

3. Meghatározza az oldalszektor címét. 

4. Beolvassa az oldalszektort, abban megkeresi az adatblokk címét. 

5. Beolvassa az adatblokkot, vagy ha szükséges, a két egymást követő adatblokkot. 
A fentiek alapján tehát egy rekord eléréséhez maximum négy (de lehet, hogy csak kettő) 
olvasási művelet elvégzésére van szükség. 


2:00 00 F3 00 00 00 09 00 00 ........ 
::08 09 00 00 00 00 00 00 00 ........ 
5:10 09 00 00 009 00 009 00 00 ........ 
3:18 009 00 00 00 09 009 00 00 ........ 
5:20 009 00 00 00 00 009 090 00 ........ 
5.28 00 00 00 00 44 41 54 45 ..... 70 
52.30 4E 53 41 54 5A 20 37 30 REKORD 
2:38 00 009 00 00 00 009 09 00 ........ 
2340 00 00 09 00 09 00 00 00 ........ 
2348 00 00 00 00 00 00 00 00 ........ 
5:50 00 00 00 00 00 00 09 00 ........ 
2:58 00 00 00 00 00 00 09 00 ......... 
::60 00 009 00 00 00 00 00 00 ........ 
5:6B 00 009 00 00 00 00 090 00 ........ 
570 00 00 00 00 00 00 09 00 ........ 
5:78 00 00 00 00 00 00 00 00 ........ 
3:B0 00 00 00 00 00 00 00 00 ........ 
5:BB 009 00 00 00 00 00 00 00 ........ 
3.99 FF 00 09 009 00 00 00 09 ........ 
:3:98 00 009 00 09 00 00 00 09 ........ 
53:AO 00 00 00 009 00 00 00 00 ........ 
3:AB 00 009 09 09 00 00 00 00 ........ 
::B0O 00 00 00 09 009 00 00 00 ........ 
5:BB 00 00 009 009 00 00 00 00 ........ 
3:C0 00 00 00 09 009 00 00 00 ........ 
5:CB8 00 00 00 09 09 090 00 00 ........ 
3:D0 00 00 00 09 09 00 00 00 ........ 
53:D8 00 00 00 00 09 09 00 00 ........ 
3:EO 09 00 00 009 09 09 00 00 ........ 
3:EB 09 00 00 09 00 09 00 00 ........ 
5.:FO 009 009 00 00 FF 09 00 00 ........ 
3:FB8 09 09 09 00 00 009 00 00 ........ 


Mivel a relatív file tulajdonképpeni adatblokkjai — hasonlóan a soros file-hoz — össze vannak 
láncolva, az adathalmazt sorosan is végigolvashatjuk vagy teleírhatjuk a relatív file szerkezeti 
felépítésének ismeretében. 

Programozáskor még a következő elveket kell szem előtt tartani: a relatív file létrehozásához 
és feldolgozásához két adatcsatornát kell lefoglalni. Egyet a tényleges adatátvitelhez, egyet 
pedig az oldalszektorok kezeléséhez. 

Amikor egy konkrét rekordra pozicionáltunk, az olvasás vagy írási művelet elvégzése előtt a 
DOS megvizsgálja, hogy a rekord elő van-e már készítve. Az előkészítés során az adatblokk 
első byte-jára $FF (CHR$ (255) karakter), a többi byte-ra $00 kerül. Ha a művelet (írás vagy 
olvasás) előkészítetlen blokkra vonatkozik, a DOS mindig az 50, RECORD NOT PRESENT 
hibaüzenetet küldi. Ez írásnál természetesen nem valódi hiba, a DOS fel is írja a rekord 
tartalmát a lemezre, és ezzel egyidejűleg a kisebb rekordszámú még előkészítetlen rekordok- 
ba felírja a CHR$ (255) karaktert. Előfordulhat, hogy ez hosszadalmas folyamat. Ezért célsze- 
rű a file legelső létrehozásakor az egész file-területet úgy előkészíteni, hogy lefoglaljuk a 
tervezett legnagyobb sorszámú rekordokat, vagyis CHR$ (255)-öt írunk bele. Ekkor az is 
kiderül, hogy a file elfér-e a lemezen (ha nem, azt az 52, FILE TOO LARGE hibaüzenet jelzi). 
Az oldalszektorok korlátozott száma miatt egy relatív file legfeljebb 6 x 120 4 254 — 18288 
byte-ot tartalmazhat. A:VC 1541-es esetében ez több, mint az egész, lemezkapacitás. A na- 
gyobb 8050-es egységnél, amely több mint 500 kbyte tárolására képes, 6 oldalszektor nem 
elég a lemezkapacitás kihasználásához. Ezért a 2.7 DOS változattól kezdődően kibővítették 
az oldalszektor eljárást (Super-Side-Sector), s itt egy relatív file maximálisan 25 Mbyte adatot 
tartalmazhat. Így van ez a CBM 8250-nél, a Commodore szilárdlemezeknél, valamint az újabb 
8050-es egységeknél (Il. még az 5.2. fejezetet). 

Már említettük, hogy a relatív file két adatcsatornát igényel és mivel a VC 1541-es csak három 
csatorna fölött rendelkezik szabadon, ezért egyszerre csak egy relatív file lehet megnyitott 
állapotban. A harmadik csatornát felhasználhatjuk egy soros file egyidejű kezelésére. A nagy 
CBM egységeknél több csatorna áll rendelkezésre (egyidejűleg három relatív file-lal dolgoz- 
hatunk; I. az 5.2. fejezetet). ; 
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3.5. DOS lista a VC-1541-hez 


RAK TEETE TE TE AE JEE EEE ERE TEJE AE EE JE JEE a LED bekapcsolása 
Ciogo 78 SEI 

CIGI A? F7 LDA $F7 a LED-bit törlése 
Ci103 2D 00 1C AND 1Co0 

C196 48 PHA 

Gaz CAS 7F LDA  7F egységszám 

CI0? FO 05 BEO — C110 9? 

CIOB 68 PLA 

CIVC 09 00 ORA HOG a LED kikapcsolása, ha az egységszám nem Ú 
CIOE DO 03 BNE Ci135 

C11g 68 PLA 

C1I1I 99 08 ORA HOB a LED kikapcsolása 
C1ló HU WV 1L 9$1A 1.00 

Ciió 58 CLI 

Ci117 60 RTS 

NEEE EE AE JE IE JE 9E IE 9E AE AE JE IE 9646 36 IE HE IE 3E JEE 9E 36 9E a LED bekapcsolása 
CIB 78 SEI 

C1197 A? 08 LDA HOB ké 
CIIB OD 09 1C ORA — 1C00 LED bekapcsolása 
CIIE B8D 009 IC STA 1C00 

Cíi21 58 C.I 

C122 60 RTS 

AEDEKE BE TE ÁE NE TE TE NEETE At NEEE BE AE HE EBEÉ TE AE E AE HE kapcsolók /flag-ek törlése 
C123 A? 00 LDA HOD 

C125 BD 6C 02 sSTA 926C 

CíI2g BD 6D 02 STA 026D 

CI2B 60 RTS 


VENNÉ ÁE ÁL AE HE DE AE E AE At AE A AE At JE JE AE E JE JE AE 94 JE JE JE ÁK 


Cí2ZC 78 SEI x 
CíI2D 8A TXA .az X regiszter tartalmának mentése 


CI2ZE . 48 PHA 
CíI2F A? 50 LDA 450 
Cí31 BD 6C 02 STA 0926C 
C134 AZ 00 LDX HOD 
Cí36 BD CA FE LDA FECA,X 8 
C139 BD 6D 02 SsTA 026D 
, CISC OD 00 1C ORA 1C0o0 
Cí13F BD 09 1C sTA 1C00 LED bekapcsolása 
C142 68 PLA 
C143 . AA TAX X regiszter tartalmának betöltése 
C144 58 CLI 
C145 60 RTS 
ENNE ÉTÉ ÉTÉ AE A EE JE AE AE TEJE E 9496 számítógéptől kapott utasítások kiértékelése 
C146 A? 00 LDA HOD 
C1I4g BD F9 02 STA — O2F? 
CI4B AD BE 02 LDA 928E az utoljára érintett egység száma 
CI4E 85 7F STA 7F egységszám 
CíS50 20 BC E6 JSR  EGBC az "ok"-üzenet előkészítése 
C153 A5 B4 LDA 84 másodlagos cím 
CciíSsS5 19 09 BPL. C160 
C157 29 oF AND $OF 
C159  LY 06 CME DE 15, utasításcsatorna 
CISB FO 03 BEOG — C160 
CíSD 4€ B4 D7 JMP D7B4 ugrás az OPEN-re 
Ci60 29 B3 C2 J8R C2B3 A sorhosszúság meghatározása, kapcsolók töntése 
CiG3 Bi A3 LDA K(A3),Y első karakter betöltése és tárolása 
Ci16ó5 BD 75 02 STA 0275 
Ci16ó8B AZ OB LDX HOB 


CIGA BD 89 FE LDA FEB9 , X a megfelelő utasítás-szó betöltése 


TA 


Ci6D CD 75 02 CMP 9275 
CíÍ70 FO DB BEG — C17A 
Cí72 CA DEX 

C173 10 F5 BPL — C16A 
Cí75 A9 31 LDA 431 
6177 4É CB CI JMP — CICB 
CI7A BE 2A 02 STX 022A 
CI7D ED 09 CPX HOD 
Cí7F 99 03 BCC —C184 
CIBI 209 EE CI JSR — CIEE 
CIg4 AE 2A 02 LDX  " 022A 
CI87 BD 95 FE LDA — FE95,X 
CIBA 85 6F STA — 6F 
CIBC BD Al FE LDA — FEAL,X 
CíieF 85 70 STA 70 
CI91 6C 6F 00 JMP  (OROF) 
EDE ÁÁ AE At AE TE AE ÁE BEEE JE AE ETET ÁEAE At 969 94 ab 9696 
C194 A? 00 LDA HOD 
C196 BD F9 02 STA  O2F9 
C199 AD 6C 02 LDA — 026C 
CI9C DO 2A BNE — C1C8 
CI9E AG 00 LDY 400 
CIAg 98 TYA 

CIA1 84 80 STY 80 
CIAZ 84 068tr STY 81 
CiIA5 84 A3 STY AZ 
CIA7 29 C7 E6 JSR — E6C7 
CiAA 209 23 C€1 JSR  C1i123 
CIAD A5 7F LDA  7F 
CIAF BD BE 02 STA — O2BE 
CIB2 AA TAX 

CIB3 A? 00 LDA 400 
CIB5 95 FF STA  FF,X 
CIB7 209 BD Ci JSR — CIBD 
CIBA 4C DA D4 JMP DADA 
ee LL LL LL ÁLL ÁLÓ 
CIBD Ag 28 LDY 428 
CIBF AY 00 LDA 400 
CICiI 99 00 02 STA  0O200,Y 
Ci1C4 88 DEY 

CiCS 10 FA BPL. CIGI 
CIC7 60 RTS 

ANEM ÁE AE E TE ALA E 9E AE 9 JE At JE 9 9E Ab 94 3E 96 9636 
CICB AD 00 LDY 40 
CICA B4 80 STY 80 
CICC 84 BI STY 81 
CICE 4C 45 E6 JMP — E645 
AREA TE AAL A JE AE 9 EE EDE E JE JE ARE A 96969 4é 9E 
CIíIDi1 AZ GŐ LDX 400 
CID3 BE 7A 02 STX — 927A 
CID6 A? 3A LDA  $H3A 
CIDB 20 68 C2 JSR —C268 
CIDB FO 05 BEO "—"CIE2 
CIDD 88 DEY 

CIDE 88 DEY 

CIDF BC 7A 02 STY — 027A 
C.6st E AB ÖS JMP — C368 
AAA E AE ALA TE E JEE ÁE AE ETEK AE AE AE A JEA AE A 
CIE5 AN 00 LDY  4OO 
CIE7 AZ 00 LDX HOD 
CIE9 Ag ZA LDA  $3A 
CIEB 4C 68 C2 JMP — C26B 


az első karakter összehasonlítása 
megvan? 


nincs meg 
31, "syntax error" 


utasítás-szó sorszáma 


utasítás-szám ( 9? 

04. ug egen és d hág tesztje 
utasítás-szm 

ugrási cím LO /alsó byte/ 


ugrási cím HI /felső byte/ 
ugrás az utasításra 


utasítás végrehajtása után a hibaüzenet 
előkészítése 


kapcsoló be van állítva? 
ha igen, hibaüzenet összeállítása 


hiba-szám 7 
sáv-szám Ú 
szektor-szám Ú 


az "ok"-üzenet előkészítése 

a hibakapcsolók törlése 
meghajtóegység-szám 

utolsó meghajtóegység számának feljegyzése 


az input puffer törlése 
a belső csatornák lezárása 


az input puffer törlése 
41 karakter törlése 


$244-től £228-ig 


a hibaüzenet /sáv 4 szektor/ kiírása 


sáv - fú 
szektor -— 6 
hibaszám az akku-ban, ugrás a hibaüzenet 


létrehozására 
az input-sorok ellenőrzése 


az egységszám a vonatkozó mutató /pointer/ 


nm 


sor-teszt ":"-ig vagy végig 
nem volt kettőspont? 


a meghajtóegység-számra mutat 
az egységszám betöltése és a LED bekapcsolása 


ínput-sorok ellenőrzése 


mutató az input-pufferben 
vessző számlálása 


a sorok tesztelése kettőspontig vagy végig 


1: 


VETED SE E E BE ENE TE AE HETE TERE TE JEE E JEE IZE E AE ínput sorok ellenőrzése 


CIEE 29 E5 Ci JSR  CIE5 sor-teszt ":"-ig vagy végig 

CIFi1 DO 05 BNE — CIF8B ugrás ha kettőspont? 

CIF3 A9 34 LDA H34 

CIFS 4C CB CI JMP — CICB 534, "syntax error" 

CIF8B 88 DEY 

CIF9 88 DEY a mutató beállítása a ":" előtti pozicióra 
CIFA 8C 7A 02 STY — 927A /egységszám! / 

CIFD BA TXA vessző a kettőspont előtt 

CIFE DO F3 BNE — CiIF3 ha igen, "syntax error" 

C200 AY 3D LDA $3D "az" 

C202 20 68 C2 JSR —C268 input-sor ellenőrzése 

c205 BA TXA vessző? 

C206 FO 02 BEN — C20A nem 

C20B A? 40 LDA 440 a 6. a $. és az 5. bit beállítása 
C20A 09 21 ORA 4§21 

C2ZAC BD BB 02 STA 028B syntaxis-ellenőrzési kapcsoló 
CZ2OF EB INX 

C210 BE 77 02 STX 09277 

C213 BE 78 02 STX — 0278 

C216 AD BA 02 LDA — 028A sikerült megtalálni a jokert? 
C219 FO OD BEG — C228 nem 

C21B A? 80 LDA HB 

C2ID OD BB 02 ORA 0288 a 7-es. bit beállítása 

C229 BD BB 02 STA — 028B 

C223 A9 00 LDA  4OOD 

C225 BD 8aA 02 STA — 928A a kapcsoló visszaállítása 

C22B 98 TYA Wa? 

C229 Fog 29 BEG — C254 nem 

C2Z2B 9D 7A 02 STA  027A,X 

C22E AD 77 02 LDA 0277 egyenlőségjel előtti vesszők száma 
C231 BD 79 02 STA 0279 

C234 A? BD LDA HAD Shift 4 CR 

C236 20 68 C2 JSR C268 sorok ellenőrzése 

C239 EB INX vessző-számláló növelése 

C23A BE 78 02 STX 9278 a vesszők számának tárolása 

C23D CA DEX 

C2ZSE AD BA 02 LDA 028A sikerült megtalálni a jokert? 

C241 FOG 02 BERG — C245 nem 

C243 AY 08 LDA 408 a 3-as bit beállítása 

C245 EC 77 02 CPX 0277 egyenlőségjel után vessző? 

C248 FW 02 BEG — C24C nem 

C24A 09 04 ORA HOW a 2-es bít beállítása 

C24C 09 03 ORA 403 a $. és az 1-es bit beállítása 
C24E 4D 8B 02 EOR — 028B 

C251 BD BB 02 STA — O2BB szintaxis ellenőrzéshez szükséges kapcsoló 
C254 AD AB 02 LDA — 028B szintaxis kapcsoló 

C257 AE 2A 02 LDX 022A utasítás-számláló 

C2SA 3D A5 FE AND — FEAS,X összekapcsolás az ellenőrző byte-tal 
C2SD DO 01 BNE " C260 hibás szintaxis? 

C2SF 60 RTS 

C260 BD 6C 02 STA  026C a hiba-kapcsoló beállítása 

C263 A? 30 LDA $30 

C265 4C CB CI JMPF CiICB 39, "syntax error" 

TREE JE EE BE AE TE TEDE EE AE E TEJE AE RE JE ALLE E At karakter megkeresése az input-pufferben 
C268 BD 75 02 SsTA 0275 karakter tárolása 

C26B CC 74 02 CPY 0274 már vége A sornak? 

C26GE BO 2E BCS " C29E igen 

C270 BiAZ LDA (A3),Y egy karakter betöltése pufferből 
C272. cé INY 

ELS ÉD 75. 82 CMP 0275 összehasonlítása a keresett karakterrel 
C276 FO 2B BEN — C2AD megvan 

€279g C9 2A CMP  §H2A Fe. 

C27A FO 04 BEG — C2BO 
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Jez7t 69 SE ECMF. 43F eg? 


C27E DO 03 BNE C283 5 
C280 EE 8A 02 INC O2BA a joker-kapcsoló beállítása 
EZMt. 1C9 26 CMP. §H2C év) 

C285 DO E4 BNE — C26B 

C28B7 98 TYA s A A 
C28B 9D 7BE 02 STA — 027B,X a vessző-pozició tárolása 
CZ2ZBB AD 8A 02 LDA — 028BA joker-kapcsoló 

C2ZBE 29 7F AND 87F 

C299 FO 07 BEG  — C299 nincs joker 

C292 A? 80 LDA BO 4 

C294 95 E7 STA  E7,X kapcsoló érték tárolása 
C296 BD 8A 02 STA — 028A joker kapcsolóként 

C299 EB INX a vessző-számláló növelése 
C29gA EG 04 CPX  $?O4 már 4 vessző? 

C2Z9E 99 CD BCC — C26B nem, folytatni 

029E LDY. 400 

Ésáb ie ság 02 LDA 0274 a sorvég kapcsoló beállítása 
C2ZAZ 9D 7B 02 STA  027B,X 3 

C2AG AD BA 02 LDA — 028A joker kapcsoló 

C2A9 29 7F AND 87F K 4 

C2ZAB FO 04 BEG  CZ2BI nincs joker 

C2ZAD A? 80 LDA $BO 

C2AF 95 E7 STA  E7,X kapcsoló beállítása 

CZB1 98 TYA 

CZBZ2 60 RTS 

FEREJE EBEÉ JE EREJE IE JE FEJE At NEJE E HETE E JE IEEE JE 9E 46-96 sorhosszúság ellenőrzése 
C2B3 A4 AZ LDY AZ a mutató az utasításbeviteli 
C2BS FO 14 BEG C2CB pufferben nulla? 

C2B7 88 DEY 

CZBB FO 10 BEN — C2CA egyes? 

CZBA B9 09 02 LDA — 9200,Y karakter az input-pufferből 
C2ZBD C? OD CMP. HOD "ek" 

C2ZBF FO XA BEG C2CB igen, sorvége 

C2C1 88 DEY 

C2C2 B9 00 02 LDA — 0O2909,Y előtte lévő karakter 

C2C5 CI? OD CMP. 4OD "oR" 

C2C7 FB 02 BEN — C2CB igen 

C2C9 CB INY 

C2CA CB INY mutató ismét a korábbi értéken 
C2ZCB 8C 74 02 STY 09274 azonos sorhosszúság 

C2CE CO 2A CPY  §2A összehasonlítása 42-vel 
C2ZDO AG FF LDY  HFF 

C2D2 90 08 BCC " C2DC ha kisebb, ok 

C2D4 BE 24 02 STY — 022A 

C2D7 A9 32 LDA 432 

CZD9 4C CB CI JMP  CICB 32, "syntax error", túl hosszú sor 
ALÁN ERRE ALÁ JE E AE EHE AE AE 9E 96 AE 9 At AE az utasításbeviteli kapcsolók törlése 
CZDC AG 009 LDY 400 

CZDE 98 TYA 

CZDF 85 AZ STA AZ mutató a ILO input-mfferen 
C2E1 8D.58 02 STA — 0258 rekordhosszúság 

C2E4 BD 4A 02 STA — 9244 file-tipus 

C2E7 BD 96 02 STA 0296 

CZEA 85 D3 STA  D3 

C2ZEC BD 79 02 sSTA 0279 vessző-számláló 

C2ZEF BD 77 02 STA 0277 h 

C2F2 BD 78 02 STA 0278 ÉS 

C2ZF5S BD 8A 02 STA — O2BA joker-kapcsoló 

C2ZFB BD 6C 02 STA  — 026C hiba-kapcsoló 

C2ZFB AZ 05 LDX 405 

C2FD 9D 79 02 STA  0279,X soranalizís-kapcsolók 

CSö8 95 D7 STA  D7.X tartalomjegyzék-szektorok 
CI3I02 95 DC STA  DC,X puffer-mutató 

cs04 95 El STA  E1,X megha jtóegység-számok 
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CS0O46 95 E6 sTa E6,X 
CSOB8 9D 7F 02 STA 027F , X 
CSOB 9D 84 02 STA 0284 ,Xx 
C30E CA DEX 

CSOF DO EC BNE C2FD 
CSII 60 RTS 

FEE NEEE BENE BE IEEHE AE AE AE 9E9E HE AE AE E AE AE 9t-Aé JE 96 96 
CSI2 AD 78 02 LDA 0278 
CcS15 BD 77 02 STA 0277 
Csi1g A? 01 LDA HOL 
cSIA BD 78 02 STA 0278 
CSID BD 79 02 STA 0279 
C329 AC BE 02 LDY D2ZBE 
cs23 AZ 00 LDX 400 
Cc3s25 86 D3 STX DS 
C3S27 BD 7A 02 LDA 9274, X 
CS2A 29 3C CS JSR CSSC 
CS2D A6 DS LDX D3 
CS2F 9D 7A 02 STA 027A,X 
CSS32 98 TYA 

CS35 95 EZ STA E2,X 
cssS5 EB INX 

cs36 EC 78 02 CPX 0278 
Cs39 99 EA BCC cs2s 
CSSB 60 RTS 

HÁÁÁT TE ALA AE AE NEEE NEE E AAA JE AE E JE 9E 96 46-96 
CS3C AA TAX 

CSSD Ag 00 LDY 400 
CS3F A? SA LDA  §5A 
CS41 DD 01 02 CMP 0291 ,Xx 
CS44 FO OC BEG cs52 
CS46 DD 09 02 CMP 92099 , X 
Cs549 DO 16 BNE Cs61 
CS48B E8 INX 

cs4C 98 TYA 

CS34D 29 01 AND HOL 
CS4F AB TAY 

cs50  8A TXA 

CSS1 60 RTS 

Cs52 BD 009 02 LDA 9200 ,Xx 
css55 EB INX 

cs56 E8 INX 

cs57 CI 30 CMP. 4H3D 
CSS9 FO F2 BEG CsS4D 
CSSB C? 51 CMP  $51 
CSSD FOEE BEG CS34D 
CSSF DO EB BNE C34C 
C361 98 TYA 

C362 09 BB ORA  §BO 
C364 29 81 AND 4§A1 
CS66 DO E7 BNE cs4F 
TETEJE FE RE AE HEHE 9E JE HE JE 9 E JE JE AE HEHE AE AE IE AE JE AE 996 9 9t 
Ccs68 A? 00 LDA HOD 
C36A BD BB 02 STA 928B 
CS6D AC 7A 02 LDY 027A 
CS70 Bi AZ LDA (A3),Y 
C372 20 BD CS JSR CSBD 
C375 19 11 BPL c388 
CSs77 CB INY 

CS78 CC 74 02 CPY 02794 
CS7B BO 06 BCS cs8s 
C37D AC 74 02 LDY 0274 
cs89 88 DEY 


joker-kapcsolók 
sáv-számok 
szektor-számok 


egységszám átvétele 
vesszők száma 
tárolás 


egységszámok száma 


utolsó egységszám 


kettőspont poziciója 
kettőspont előtti egységszám beolvasása 


egységszám a táblázatban 


utolsó sg elé szánt 
nem, folytatás 


egységszám megkeresése 
pozició tárolása 


mögötte van a kettőspont? 

igen 

ezen a helyen van a kettőspont? 
nem 


egységszám 


az egységszám betöltése 


"ga ? 

igen 

978 a 

igen 

nem, az utolsó egységszám érvényes 

utolsó egységszám 

a 7-es bit beállítása, bizonytalan egységszám 
többi bit törlése 

az egységszám renáüdkezésre bocsátása 


az egységszám bevitele 


a szintaxis-kapcsoló törlése 

pozició az utasítás-sorban 

karakter beolvasása az utasítás-pufferbe 
az egységszám beolvasása 

megbízható szám? 

mutató növelése 

sor vége? 

igen 


115 


C381 DO ED BNE C370 
C383 CE BB 02 DEC 028B 
CS3B6 A? 00 LDA HOD 
cse8 29 01 AND 401 
csga 85 7F STA 7F 
CS8BC 4C 09 CI JMP C1i1og 
AÁEÁETE TE TEÁT ÁE AE EE AE EHE AE AE At AE ÁE IEEE EE ÁE 46-9E-9E At 
CS8F AS 7F LDA hág 
C391 49 01 EOR 01 
CS93 29 01 AND §$01 
CS98s 85 7F STA Jr 
C397 60 RTS 

ÉTÉ TE JEE ÁE AE AE AE JE AE ÁE AE At JE At At AE JEE E At 46 46 96 At ét 
Cs98 AG 00 LDY 400 
CS9A AD 77 02 LDA 09277 
C39D CD 78 02 CMP 0278 
CSAD FX 16 BEG CSBB 
CSAZ2Z CE 78 02 DEC 0278 
CSAS AC 78 02 LDY 0278 
CSAB B9 7A 02 LDA 027A,Y 
CSAB AB TAY 

CSAC Bi AS LDA K(A3),Y 
CSAE Ag 04 LDY 404 
CSBO D9 BB FE CMPF FEBB,Y 
CSB3 FO 03 BEO CSBB 
CSB5S 88 DEY 

CSBó DO FB BNE CSBO 
CSBB 98 TYA 

CSB9 §8D 96 02 STA 0296 
CSBC 60 RTS 

FENE ALTE JE JE E AE ATA ÁE JE AE TETEJE JER AÉ JE AE 96 96 At AE 
CSBD C9 30 CMP 430 
CSBF FO 06 BEO CSC7 
CSCi C9? 31 CMF. HSI 
CSC3 FO 02 BEG CSC7 
CSCS 09 80 ORA  $8O 
CSC7 29681 AND $81 
CSC9 60 RTS 

TERET JE AE ÁE ÁE EE AE AE JE AE At AE E AE AE JE AE JE 9E E 469 
CSCA A?.OBD LDA HOG 
CSCC 85 6F STA 6F 
CSCE BD BD 02 STA o28D 
CSD1 48 PHA 

CSD2 AE 78 02 LDX 0278 
CSDS 68 PLA 

CSD6 05 6F ORA 6F 
CSDB 48 PHA 

CSD9 A? 01 LDA 4$01 
CSDB §5 6F STA eF 
C3DD CA DEX 

CSDE 309 OF BMI CSEF 
CSEG B5S E2 LDA E2,X 
CSE2 19 04 BFL CSEB 
CSE4 06 óF ASL 6F 
CSE6G 06 6F ASL 6F 
CSEB 4A LSR A 
CSE9 909 EA BCC CsSD5S 
CSEB 06 6F ASL 6F 
CSED DO ES BNE CsD5S 
CSEF 68 PLA 

CSFO AA TAX 

CSFi1 BD 3F C4 LDA C43F,X 
CSF4 48 PHA 


a meghajtó-szám utáni sor megkeresése 


meghajtó-szám 
a LED bekapcsolása 


egységszám átkapcsolása 


egységszám 
4. bit megfordítása 


a file-tipus meghatározása 


sikerült megtalálni az egyenlőség jelet? 


nem 
a mutató betöltése 


mutató az "-" mögötti karakterre! 


karakter a pufferból 

összehasonlítás a file-tipus jelöléssel 
ugn yi ree ny 0-a ugya 

egyezik? 

a file-tipus feljegyzése 1-től 4-ig 


egységszám ellenőrzése 


ny 
nin 


a 7-es bit beállitása, ha nincs 4 vagy 1. 


egységszám ellenőrzése 


egységszámok /sorszámok/ száma 


a szintaxis-kapcsoló betöltése 
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CSF7 BD 8C 02 STA o28Cc 


CSFA 68 PLA 

CSFB 0A ASL A 

CSFC 19 SE BPL C4sCc 

CSFE AS EZ LDA E2 

C4g0 29 01 AND 401 az egységszám leválasztása 
Cc4ág2 85 7F STA 7F 

C4g4 AD 8C 02 LDA o28C 

C4g7 FO 2B BEG C434 

C4á0g9 20 3D C6 JSR Cs3D egység inicializálása 

C4gC FOG 12 BEG C4209 nincs hiba? 

C40gE 20 eF C3 J8SR C3BF átkapcsolás másik egységre 
C411 A? 00 LDA 4HOOg 

C413 B8D 8C 02 STA 028C 

C416 29 3D C6 JSR — CS3ZD egység inicializálása 

6419 FO IE BEG C439 nincs hiba? 

CSJI1B A? 74 LDA 474 

C41D 209 CB Ci JSR C1CB 74, "drive not ready" 

Cc4á29 209 8F C3 JSR csaF 

C4á23 20 3D C6 JSR C63D egység inicializálása 

C426 08 PHP 

C4á27 20 8F C3 JSR — C3BF átkapcsolás másik egységre 
C4á2A 2 ep 

CA2B FO OC BEG C439 nincs hiba? 

C4á2D A? 00 LDA HON 

Cá2F BD BC 02 sTa 028C egységek száma 

C4á32 FO 05 BEO — C439 

C4á34 20 3D C6 JSR C63D egység inicializálása 

C437 DO E2 BNE — C41B hiba? 

C439 4C 009 CI JMP C19go LED kikapcsolása 

GásC 2a ROL A egységszám Carry-tól a 4. bitig 
Cá3D 4C 00 CA JMF C400 

TEHENET EE E JEE TETEJE ETETETT TE E TERE AE E AH AE At egység ellenőrzési kapcsolók 


C449 00 89 41 01 01 81 01 BI 
C448 681 81 B1 42 42 42 42 


EHE TEJE EE EE JE JE JE JE EE HE TEJE TE FELE AE 9 96 At 96 3 file keresése a tartalomjegyzékben 
C44F 29 CA C3 JSR — C3CA egység inicializálása 

C452 A9 00 LDA 400 b 

C454 BD 92 02 STA 0292 mutató 

Cc457 20 AC C5 IJSR CsAC első tartalomjegyzék-blokk olvasása 
C4áSA DO 19 BNE — C475 van bejegyzés? 

C45C CE BC 02 DEC — O2BC világos az egységszám? 

C4SF 19 01 BPL — C462 nem 

C461 60 RTS 

C462 A9 01 LDA 4Oi 

C464 BD BD 02 STA — 028D 

C467 20 8F C3 JSR — C38F átkapcsolás másik egységre 

C46A 209 00 CI JSR —C100 LED kikapcsolása 

C46D 4C 52 C4 JMP — C452 

C470 209 17 C6 JSR  C617 következő file keresése a tartalomjegyzékben 
C473 FO 10 BEO C485 nem sikerült megtalálni? 

C475 209 DB C4 JSR — C4DB bejegyzés ellenőrzése a tartalomjegyzékben 
C478 AD 8F 02 LDA — O2BF 

CA7B FOOI BEG — C47E további file-ok? 

C47D 60 RTS 

C47E AD 53 02 LDA — 0253 

C48B1 30 ED BMI C470 nem sikerült megtalálni a file-t? 
Cc4ág3 10 FO BPL — C475 nem 
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c485 
C488 
C48A 


C48BB 
C48E 
C490 
C492 
C494 
C497 
C49gA 
C49D 
C4á9gF 
C4AZ2 
C4A5 
C4A7 
C4AA 
C4AD 
C4AF 
C4B2 
C4B4 


C4B5 
C4ABB 
C4BA 
C4ABD 
C4Co 
C4C2 
c4ács 
C4C7 
C4CI 
CACC 
C4CE 
C4DO 
C4D2 
C4D5 
C4D7 
C4ADB 
C4aDA 
C4DD 
C4DE 
C4E1 
C4E4 
C4E6 


C4E7 
C4EA 
C4EC 
C4EE 
C4FO 
C4F1 
C4F3 
C4F5 
C4F7 
CAF9 


CAFC : 


CAFE 
c5S01 
csoz 
cso5s 
C507 


csoa 
CSOD 
CsSoF 
CcS11 
csis 


02 


C6 


02 


02 


02 


02 
cS 


cs 


02 


02 


[9223 


cS 


02 


LDA 
BEG 
RTS 


JSR 
BEO 
BNE 
LDA 
STA 
JSR 
JSR 
LDA 
STA 
JSR 
BNE 
STA 
LDA 
BNE 
DEC 
BPL 
RTS 


JSR 
BEG 
JSR 
LDX 
BPL 
LDA 
BEG 
BNE 
LDA 
BEG 
LDA 
AND 
CMP 
BNE 
RTS 
LDX 
STX 
INX 
STX 
JSR 
BEG 
RTS 


JSR 
BNE 
LDA 
EOR 
LSR 
BCC 
AND 
BEG 
LDA 
CMP 
BEG 
LDA 
TAX 
JSR 
LDY 
JMP 


LDA 
CMP 
BEG 
CMP 
BNE 


következő tartalomjegyzék-blokk olvasása 
nem sikerült megtalálni? 


átkapcsolás másik egységre 
LED bekapcsolása 


tartalomjegyzék-blokk olvasása 
sikerült megtalálni? 


következő bejegyzés a tartalomjegyzékben 
nem sikerült megtalálni? 
bejegyzés ellenőrzése 
sikerült megtalálni a file-t? 
igen 

ha nem, kész 


file-tipus 
azonos a keresett file-tipus? 
nem 


megvan a file-kapcsoló 


mutató beállítása a file-re 


mutató a következő file-on 
ha vége, kész 
egységszám 


keresés mindkét egységen 
igen 


file-név hosszúság behozása 


egy karakter betöltése az utasítássorból 
azonos a tartalomjegyzékben lévő karakterrel? 
igen 

we? " 

nem 
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c515 
CS17 
C519 
CS1B 
csic 
CSs1D 
c520 
cC522 
C525 
C527 
C529 
CS2ZB 
CS2D 
CS2F 
Cc531 
cS3z 
css5 
cs38 
CS3B 
cssD 
CS3F 
C5s42 


cs45 
c547 . 


c549 
CS4B 
c5s4D 
CSaF 
cs5o 
cssi 
css5 
cs55 
Cc556 
csSs8 
cCSSA 
CS3C 
CSSE 
c560 
C562 
C564 
CS66 
c568 
CS6A 
CS6C 
CS6E 
cSs70 
C572 
Cc574 
C577 
C578 
c57A 
C57D 
c580 
c5s82 
c584 
Cc586 
c589 
CSBB 
CS8E 
C591 
C594 
CS97 
C599 


CSgA 


CSID . 


CSYF 


02 


02 


02 


02 " 


Shift Blank, név vége? 
igen 

mutató növelése 

név vége az utasításban? 
igen 

következő karakter 

"g " 

igen, sikerült megtalálni a file-t 
egyébként tovább keresni 
19 

név végének elérése 


Snift Blank, név vége 
nem sikerült megtalálni 


tartalomjegyzék szektor-száma 
tárolása a táblázatban 


file-tipus 

a scratch védelmi byte /6/ leválasztása 
és tárolása 

a 7-es bit törlése 

az 5-ös bit beállítása 

a 3-as és 4-es bit törlése 

a 6-os bit ismétlése 

a joker kapcsoló leválasztása 

joker kapcsoló a táblázatba 


egységszám 
első file-sáv 


és a szektor beolvasása a tartalomjegyzékből 
rekordhosszúság 
ellenőrzés 


rekordhosszúság 
beolvasása a tartalomjegyzékből 


joker kapcsoló magas? 
igen 
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02 


02 


be van már állítva a sáv-szám? 
igen 


18, tartalomjegyzék sávja 


1. szektor 


szektor olvasása 


file bejegyzések száma /-1/ 

egy karakter beolvasása a pufferból 
tárolása /sáv-szám/ 

a puffer mutató beállítása 

a számláló csökkentése 


a tartalomjegyzék első byte-ja 


a sáv és a szektor-szám betöltése 


szektor-szám 


puffer mutató 


puffer mutató egyesen? 
18, BAM sáv száma 
sáv-szám 


szektor-szám 
ugrás egy blokk olvasására 


a puffer mutató beállítása 

megtalált file-kapcsoló törlése 

megtörtént az összes file bejegyzés ellen- 
őrzése? 

puffer mutató növelése 32-vel 

következő bejegyzés és további keresés 


puffer mutató beállítása 
aA következő blokk olvasása 


sáv és szektor-szám beolvasása a pufferból 
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Ccss7 AS 81 LDA B1 


CS39 BD 90 02 STA 0290 
CSSC 60 RTS 

EBET EE JE TEJE E AE A 9E AE AE 9E JE 9E JE E 9E3E 1 AE At 
CS3D AS 68 LDA 68 
CS3F DO 28 BNE C669 
C641 A6 7F LDX TE 
C643 56 1C LSR 1C,Xx 
C645 90 22 BCEC C669 
C647 A? FF LDA $FF 


C649 BD 98 02 STA 0298 
Cs4C 20 BE DO JSR DO0E 


CSG4F AD FF LOY  $FF 
CéS1 C9 02 CMP 402 
CSSS3 FO 0A BEC CSSF 
Cc655 C9 053 CMP 4353 
C657 FOG 06 BEC CsSSF 
CéS9 CI OF CMP  4OF 
CSSB FO 02 BEG CSSF 
CSSD Ag 00 LDY 400 
CSSF AG 7F LDX fd ná 
Cé61 98 TYA 

Cs6s2 95 FF STA FF,X 
C664 DO 03 BNE C669 
C666 20 42 DO I1SR D042 
C669 AG 7F LDX ze 
Cé6GB BŐ FF LDA FF ,X 
CG6D 68 RTS 


NEEE ELETERE JE TEJE EAT TETEJE 9 E E EME JE AE 36 
C66E 48 PHA 

C6é6F 20 A6 C6G JSR CSA6G 
Cs72 20 BB C6G JSR C688 


Ccs7zS 68 PLA 

Cs676 38B SEC 

C677 ED 4B 02 SBC 024B 
CS7A AA TAX 

C67B FO VA BEG C6B7 
C67D 909 08 BCC C687 
CS7F A? AD LDA  $AD 
CéB1 971 94 STA (794,Y 
cs83 CS INY 

C684 CA DEX 

CcCss85 DO FA BNE C6BI 
C687 60 RTS 

TEVET FEJE TE ÁÁ TEJE EE JE ÁÁ JE ALTE EE IE JE JE IE AE 36-94-96 
CéBB 98 TYA 

C689  0A ASL A 

CS6BA AB TAY 

CS8B B97 99 00 LDA 09099 ,Y 
CS8BE 85 94 STA 94 
C6909 B9 9A 00 LDA 009A,Y 
C693 85 95 SsTA 95 
CS95 AD 00 LDY 4OoG 
C697 BD 00 02 LDA 0200 ,Xx 
CSYA 91 94 STA (94),Y 
CéYC CS INY 

CG9D FO 06 BEER CSA5S 
Cé9F EB INX 

CGAG EC 76 02 CPX 0276 
CSAZ 90 F2 BCC C697 
CSGAS 60 RTS 


szektor-szám tárolása 
meghajtóegység tesztelése és inicializálása 


egységszám 
volt lemezcsere? 
ha nem, kész 


a hiba-kapcsoló beállítása 
a tartalomjegyzék-sáv olvasása 


29, "read error"? 

igen 

21,"read error"? 

igen 

74, "árive not ready"? 
igen 

egységszám 

a hiba-kapcsoló tárolása 
hiba? 

BAM betöltése 
egységszám 

a hibakód átadása 


file neve a tartalomjegyzék pufferben 
a file-név betöltése a pufferbe 


hosszúság összehasonlítása a maximális 
hosszal 


"Snift Space:szel kitölteni 


puffer-szám 


kétszerese a mutatónak 


karakter átvitele a pufferbe 


megtelt a puffer? 
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EK ETET E ETETETT TE IEEE JE EHE JE JEE TE JE JE AE név végének megkeresése az utasítástárban 
CS6AG6 AI 00 LDA HOD 


CGAB BD 4B 02 STA 024B hosszúság előfoglalás 

CSAB BA TXA 

CSAC 48 PHA 

CSAD BD 99 02 LDA 92090 , x karakter beolvasása a pufferból 
CSGBO C9 2C CMP  $2C vetsz 

CGB2 FO 14 BEG — C6CB 

CSGB4A C9 3D CMP. 43D "zt 

C6GB6 FO 19 BERG — C6CB ; 

CSGBB EE 4B 02 INC 024B a név hosszának növelése 
CGBB EB INX 

CSBC A? OF LDA  HOF 15 

CSBE CD 4B 02 CMP — 024B 

CSCIiI 90 05 BCC — C6CB nagyobb? 

CG6CS EC 74 02 CPX 0274 vége az input-sornak? 

CéC6 909 E5 BCC — C6GAD 

CSCB BE 76 02 STX 09276 

CGCB 68 PLA 

CSCC AA TAX mutató a név végén 

CSCD 60 RTS 

TETEJE NEJE ÁE IE AE At Eat AE E AE AE RE AE JE Ab 9 9É E At 464696 

CSCE A5 83 LDA 83 

CGDO 48 PHA f másodlagos cím és csatorna-szám 
C6GD1 A5 82 LDA 82. 4 - ű 
CSGD3 48 PHA" ; § 

C6GD4 209 DE C6 JSR " C6DE file bejegyzés előállítása 
C6GD7 68 PLA ., z 

CéDB 85 82 sTA .82 : 4 
CGDA 68 PLA az adatok visszatöltése í 
CéDB 85 83 sra 853; A 

CSDD 60 RTS j 

AEK TE ÁE ALÁ JE AA AE 96 IEEE ÁE IEEE JE AE At At 3E JEA Ét 96 

CSDE A? 11 DA; . ML 7 ! 17 7 

CGE0 85 83 sra 83 másodlagos cím 

CéEZ2 20 EB DO JSR  DOEB . olvasó csatorna megnyitása 
CS6ES 20 EB D4 JSR D4EB . : a puffer mutató beállítása 
CSGEB AD 53 02 LDA 0253 

CSEB 109 0A BPL  Cé6F7 még nem az utolsó bejegyzés? 1 
CSGED AD 8D 02 LDA — 028D 

CSFO DO A BNE — CSFC 

CéF2 209 06 CB JSR — CBO6G " 9 nt 

céF5 18 ELLE blocks free." írása 

CöF6 60 RTS 

CSF7 AD 8D 02 LDA — 028D 

COFA FO IF BERG — C71B 

CSFC CE BD 02 DEC " 028D 

CGFF DO OD BNE " C€70E 

C€C701 CE BD 02 DEC " 028D 

C704 209 BF C3 IJSR C38F áttérés másik egységre 

C707 209 064 CB JSR C806 "blocks free." írása 

C70A 38 SEC 

C7OB 4C 8F C3 JMP C3BF , áttérés másik egységre 

C70E Ag 09 LDA  $HOOD 

C710 8D 73 02 STA 0273 egységszám felülíráshoz, felső byte 
C713 BD 8D 02 STA — 028D 

C7i6 28 B7 67 JSR C7B7 felülírás 

G27i69. 858 SEC 

C7I1A 60 RTS 

C7IB AZ 18 LDX $ig 

C71ID AD 1D LDY. "810 

ÚZÉFT Bi 94 LDA (949,Y hi blokkok száma 
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02 


C7 


02 


; FE 


02 


FE 
02 


FE 
02 


02 


02 


02 


02 


02 


02 


02 


: 02 


a pufferben 
nulla? 


lo blokkok száma 
a pufferben 


19 

164 

puffer törlése 

file-tipus 

7-es bit a carry-ba 

nincs beállítva a 6-os bit? 
"c ".t a védett file-hoz 

a file-tipus után beírni 
4-3 bit leválasztása 
file-tipus: jelölési indexként 
file-tipus 3. betűje 

a pufferben 


file-tipus 2. betűje 
a pufferben 


file-tipus 1. betűje 
a pufferben 


nincs lezárva a file? 

"ge " 

file-tipus előtti helyek kitöltése 
"shift space"-szel 


file-név 
beírása a pufferbe 


egi 
file-név előtt beírni 


karakter a pufferből 


e". ? 


a név végén a "shift space" 


"":.e]l helyettesíteni 


7-es bit 
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C4B5 


$I1B 
420 
OZBO,Y 


C7BO 


F119 
FODF 
C7AC 
HFF 
6F 


C7AC 
HOB 

CB17,Y 

O2B1,Y 


C8SOB 


C7A7 29 B5 C4 JSR 
C7AA 38 SEC 
C7AB 60 RTS 
köstásásátsösásátás áss ásás ás ásásásssösási 
C7AC ADB 1B LDY 
C7AE A? 20 LDA 
C7BO 99 BB 02 SsTA 
C7B3 88 DEY 
C7B4 DO FA BNE 
C7Bó 60 RTS 
TETEJE FEJE ÁE EE IE AE ALA ÁT E AE IEEE AE EE At At E AE 96 44 36 
C7B7 29 19 F1 JSR 
C7BA 20 DF FO JSR 
C7BD 29 AC C7 JSR 
C7CG A? FF LDA 
C7C2 85 6F sSTA 
C7C4 AG 7F LDX 
C7C6 BE 72 02 STX 
C7C9 A? 09 LDA 
C7CB 8D 73 02 STA 
C7CE Ab F9 LDX 
C7DO BD ED FE LDA 
C7D3 85 95 STA 
C7DS AD 88 FE LDA 
C7DB 85 94 STA 
C7DA AB 16 LDY 
C7DC Bi 94 LDA 
C7DE C9 AD CMP 
C7EG DD OB BNE 
C7E2 A? 51 LDA 
C7E4 2C Bi 94 BIT 
C7E7 C9 AOo CMP 
C7E9 Do 02 BNE 
C7EB A? 20 LDA 
C7ED 979 B3 02 STA 
C7FO 88 DEY 
C7Fi 18 FZ2 BPL 
É7F5 A? 42 LDA 
C7F5 BD BI 02 STA 
C7FG AT 22 LDA 
C7FA BD B2 02 STA 
C7FD BD CS 02 STA 
CBOG A? 20 LDA 
C80o2 8D C4 02 STA 
cso5 60 RTS 
TETEJE JE TEJE JE BE E JE JE AE AE 3E JE AE EE 3E AL AT AE JE at 94-36-96 
CS06 29 AC C7 JSR 
CB8097 AD OB LDY 
CBOB B9 17 CB LDA 
CSE 99 Bi 02 STA 
C811 88 DEY 
C812 10 F7 BPL 
CBI4 4C 3D EF JMPF 


EF4D 


VERA E ÁE ÁE BE TE AE DEZE E BE JE TE BE DE AE E 9E JEA 9E 9t 9 AE 
CB8B17 42 4aC 4F 453 4B 53 20 46 


CS8I1F 52 45 45 2E 


TEJE JE TEJE JE BE BE At AA EFE AE AE IE A 91 AE E TEAT EE IE 9 EE E 


cs23 
CB826 
C829 
cC82C 
CS82ZE 


20 
20 
20 
A? 
es 


98 CS 
29 cs 
CA CS 
00 
86 


JSR 
JSR 
JSR 
LDA 
STA 


C398 
CS20 
CSCA 
400 
86 


áttérés a következő tartalomjegyzék bejegy- 
zésre 


a puffer törlése 


" " Blank-t 
a pufferbe beírni 


lemez inicializálása, ha lemezcsere volt 
lemez nevének olvasása 
puffer törlése 


egységszám 
blokkszám alsó byte 


blokkok száma /Lo/ 


puffer-szám 
puffer-cím felső byte-ja /Hi/ 


299, lemeznév poziciójának 
tárolása 


"shift space"-kal a puffer kitöltése 


eze 
pufferből származó karakter 
összehasonlítása a "shift space"-vel 


!" " space 
a pufferben 


"RVS ON" 

a pufferben 

,n"?, et 

lemeznév elé 

és utána beírni 
! "! space 
mögötte 


a lezáró sor előállítása 
puffer törlése 


12 "blocks free" 
jel 
beírása a pufferbe 


szabad blokkok száma 
"blocks free" 


"Scratch" 5-utasítás 

a file-tipus meghatározása 

egységszám betöltése 

szükséges esetben az egység inicializálása 


törölt file-ok 
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C830 29 9D C4 JSR C49D 
Cc833 39 SD BMI C872 
C835 209 B7 DD JSR DDB7 
CsS3Zg 99 5 BCC CB86D 
CSB3ZA AB 00 LDY  4HOD 
CS3C Bi 94 LAMA EMILY 
CSS3E 29 40 AND $40 
C840 DO 2B BNE C86D 
CB4A2 209 B6 CB JSR CBB6ó 
cg45 Ag 15 LDY §$§iíis 
C847 Bi 94 LDA (94)9,Y 
C8497 FO 0A BEC css5 
CB4B 85 80 STA 80 
C84D CB INY 

CBSE Bi 94 LDA (94),Y 
css 85 81 STA 81 
C8s52 209 7D CB JSR C87D 
cssS5 AE 53 02 LDX 0253 
CsS8 A? 20 LDA  H2OD 
cssaA 55 E7 AND E7,X 
CSSC DW4 DD BNE CBóB 
CSSE BD 89 02 LDA 0280 ,Xx 
C861 85 80 STA 80 
C863 BD 85 02 LDA 0285 ,X 
C866 85 81 STA 81 
C868 29 7D CB JSR C87D 
CSBOB  E6 B6 INC 86 
CS86D 29 BE C4 JSR C4BBE 
C870 19 C3 BPL css5 
C872 AS 86 LDA 86 
C874 85 80 STA 80 
C876 A? 01 LDA Oi 
C878B Ag 00 LDY  4OOG 
CS7A 4C€C AS CI JMP C1i1A3 
TETEJE RE RE TE TE AE Át AE JE JEE E JE JE A AE E 3E 6 9E JE IE 3696 E 
CGI 28 SF EF JSR EFSF 
Cegg 20 75 D4 JSR D475 
CS 29 19 .Fi JSR Faág 
CB886 B5S A7 LDA A7,XxX 
cseg C? FF CMP  WFF 
CSBA FO 08 BEC C894 
CS8gC AD F9? 02 LDA O2F9 
CBéBBF 07 40 ORA  H4OD 
Ccé91 BD F? OZ STA 02F? 
Ce94 A? 00 LDA  $OD 
C896 29 CB D4 J8R D4C8B 
CcCSe99 209 56 Di JSR D156 
ceyt 85 89 sTa 80 
CSYE 29 56 Di JSR D156 
CBA1 §5 81 STA 81 
csA3Z3 A5 80 LDA 80 
CBSAS DO 06 BNE CSAD 
CSA7 20 F4EE JSR EEF 4 
CBAA 4C 27 D2 JMP D227 
CSAD 20 SF EF JSR EFSF 
CBSBBO 29 4D D4 JSR D44D 
CBBS3 4C 94 CB JMP Cc8e94 
ARE AE TE ÁE NE JE AE AE JE AE Át JE JE AE AT E JE E IEEE JE AE 99694 
CBBó AD 00 LDY 400 
C8S8BB 98 TYA 

CSB97 91 94 STA (94),Y 
CSBB 20 SE DE JSR DESE 
CSBE 4C 99 D5S JMF D5S99 


file megkeresése a tartalomjegyzékben 
nem sikerült megtalálni? 

megnyitott állapotban van a file? 
igen 

file-tipus 

védelem? 

igen 

file törlése 


első oldal-szektor sáv-száma 
nincs egy sem? 
sáv-szám feljegyzése 


és a szektor-szám 


oldal-szektorok törlés 
file-szám 


az 5-ös bit magas? 
igen, a file nincs lezárva 
sáv 


és szektor betöltése 


file törlése 

törölt file-ok számának növelése 
áttérés a következő file-ra 

törlés 

törölt file-ok száma 

tárolása 

l, mint disk-státus 

4, mint szektor 

a "files scratched" üzenet előkészítése 


egy file törlése 
a blokkok felszabadítása a BAM-ban 


BAM puffer számnak a betöltése 


puffer-mutató nullán 
a sáv-szám betöltése 


a szektor-szám betöltése 


sáv-szám 

nem egyenlő nullával? 
BAM-be jegyzések 

a csatorna lezárása 


a blokk felszabadítása a BAM-ban 
a következő blokk olvasása 

és folytatása 

a file-bejegyzés törlése 
file-tipus nullára állítása 


blokk írása 
és elleriőrzése 
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VERE JE BEEE AE Át E At At E AE At JE AE AE AE AE JE E 9 At 4é JE 9 94 96 


C8BCI 
cecs 


CeC6 
C8BCB 
CBSCB 
C8BCD 
CBDO 
CSD2 
cep5 
CBD7 
Ce8DA 
CBDC 
CBSDE 
CBEOG 
CBEZ2 
CBE4 
CBE6G 
C8SES8 
CBEA 
CSEC 


CBEF 


C8BFO 
CcaF2 
ceFr5 
C8SF8B 
CBFB 
CsSFD 
CBFF 
C991 
C904 
C997 
C909 


[docAuthor 
Cg0F 
C912 
c915 
C917 
C919 
CY1C 
CgiF 
C921 
cC925 
c925 


C928 
C92B 
CI2D 
CI92F 


c932 


cCgs3a 
c957 


CYSA . 


c93D 
Cc940 
C942 
C944 
C946 
cC948 


A9 31 LDA 
4€ CB CI JMP 
Ag 4C LDA 
BD 99 06 STA 
Ag C7 LDA 
BD 01 06 STA 
A? FA LDA 
8D 92 06 STA 
Ag 03 LDA 
209 D3 D6 JSR 
A5 7F LDA 
09 Eg ORA 
es 03 STA 
A5 03 LDA 
30 FC BMI 
C9 02 CMP 
99 07 BCC 
A9 03 LDA 
A2 00 LDX 
4C A E6 JMP 
60 RTS 
Ag ED LDA 
BD 4F 02 STA 
20 Di FO ISR 
209 19 Fi IJSR 
A? FF LDA 
95 A7 sTA 
Ag OF LDA 
8D 56 02 STA 
29 E5 CI JSR 
Do 03 BNE 
40 C1 CB JMP 
29 F8 Ci JSR 
209 29 CZ JSR 
AD 8EB 02 LDA 
29 ss AND 
DO OF BNE 
AE 7A 02 LDX 
BD 090 02 LDA 
C9 2A CMPF 
Do 05 BNE 
A? 30 LDA 
4C C8 CI JMP 
AD AB 02 LDA 
29 D9 AND 
DO F4 HNE 
4C 52 C9 JMP 
A? 00 LDA 
ab 58 02 STA 
BD 8C 02 STA 
BD 80 02 STA 
BD 81 02 STA 
A5 E3 LDA 
29 01 AND 
85 7F sTA 
09 01 ORA 
BD 91 02 sSTA 


431 
CiICB 


44C 
0600 


D-utasítás, "Backup" 
1. "gynták error" 


lemez formálása 
JMP-utasítás 


JMP $FAC7 a £644-23642 után 


a sáv- és a szektor-szám beállítása 
egységszám 

a formálás utasításkód jának 
átadása 

a formálás végén 

visszajelzés ellenőrzése 

ha 2-nél kisebb, ok 


1741 És; "read error" 
C-utasítás, "Copy" 


BAM puffer számának betöltése 


az input-sor ellenőrzése 
31, "syntax error" 


az input-sor ellenőrzése 
meghajtószámok tesztelése 
szintaxis-ellenőrzés kapcsoló 


az utasítás karaktere 
"en 


36, "syntax error" 


szintaxis-kapcsoló 


30, "syntax error" 
egységek száma 


sáv-szám a tartalomjegyzékben 


egységszám 
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C94B 
C94E 
C951 


C952 
c955 
C958 
C95SA 
C95C 
C95E 
C960 
C962 
C964 
C966 
C968 
C96A 
C96C 
C96E 
C971 
C973 
C976 
C979 
C97C 
097E 
c980 
C982 
c984 
C987 
C989 
C98BB 
C98E 
c991 
c993 
C996 
C999 
C99B 
C99E 


CgAl 
C9A4 


C9A7 
CYAA 
CYAC 
CYAE 
C9BO 
C9gBS 
C9YB6 
C9B9 
CYBC 
CYBF 
CYCI 
[odcAutho 
[oocAuth 
CIC? 
CICB 
CYCE 
CYDO 
C9D2 


CgD5 
cg9Da 
CIDB 
CYDD 
CYE0 
C9gE2 
CgE5 


ca 
02 


CA 
02 


[DA 
Di 


ci 


02 


02 


02 
DA 


[DC 
Ci 


c? 
Ci 


ca 


D4 
D6 
02 
02 
[DoCA 


Dog 


D1 


CA 


[DA 


CF 
CA 


DD 


Di 


file megkeresése a tartalomjegyzékben 
file-nevek száma az utasításban 

3-nál kisebb? 

igen 

első egységszám 

második egységszám 

nem azonos egység? 

első file tartalomjegyzék-blokkja 

azonos a 2, file tartalomjegyzék-blokkjával?" 
nem 

első file tartalomjegyzék-szektora 

azonos a 2. file tartalomjegyzék-szektorával? 
nem 

megvan a file? 


a file-tipus beolvasása 
relatív file?. 

prg-file 

nem 

fe "file type mismatch" . 
1 


másodlagos cím 


append előkészítése 


file-ok másolása 
kész 


file-ok másolása 
kész 


; 
első file egységszáma 


egységszám 


a file bejegyzése a tartalomjegyzékbe 


1r/ 


a file-tipus betöltése 
nem relatív file? 


byte beírása a pufferbe 
és betöltése 


a 7-es bit tesztje 
nincs beállítva? 
file-tipus ellenőrzése 
relatív file? 
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C9E7 
C9EA 
CYED 
C9YEE 
C9F1 
CYF3 
CgF5 
C9F7 


C9YFA 
CYFD 
CYFF 
CADI 
caAoS 
CAD6G 
CAGB 
CADA 
CAGC 
CADF 
CAL2 
CA14 
CA17 
CALA 
CAIC 
CALE 
CA21 
cA23 
CA26G 
CA29 
CAZB 
CAZE 
CASO 
CASI 
CASZ 


cas5 
CA3S7 
CAST 
CASC 
CA3E 
CA40 
CA42 
CA44 
CA46G 
CcA48B 
CA4B 
CA4D 
CA4F 
CcASZ2Z 


cASS 
CAS6 
CA59 
CASB 
CASC 
CASE 
CASF 
CA6G1 
CAG3 
CA66b 
CA6? 
CAGC 
CAGF 
CA71 
CcA7S 
CA7S 
CA77 


DB 


02 


FE 


D4 
02 


D4 


02 


02 


02 
D9 


Di 


D4 


D3 


D1 


DD 


D1 
El 


JSR 
LDX 
INX 
CPFX 
BCC 
LDA 
STA 
JMP 


LDX 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
LDA 
JSR 
LDX 
LDA 
AND 
STA 
LDA 
STA 
JSR 
LDY 
JSR 
BEG 
INY 
TYA 
JMP 


LDA 
STA 
JSR 

SsTA 
LDX 

LDA 
AND 
STA 
BNE 

JSR 
BEG 
LDA 
JSR 
RTS 


JSR 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDA 


adat-byte beolvasása a pufferbe 


18 


a csatorna lezárása 


egységszám 

tárolása 

18, tartalomjegyzék-sáv 
tárolása 
tartalomjegyzék-szektor 
blokk olvasása 


mutató a blokkban 
puffer mutató beállítása 


file-tipus 

leválasztása 

és tárolása 

relatív file paramétereinek olvasása 
file-tipus beolvasása 

relatív file? 

a puffer mutató beállítása 

$7 

a csatorna megnyitása és a byte betöltése 
csatorna-szám 

a végjelölések leválasztása 

nincs beállítva? 

file-tipus betöltése 


relatív file? 


a 7-es bit beállítása 


az egységszám beállítása 


18 


írócsatorna megnyitása 
egységszám beállítása 
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caA79 85 88 STA 8a 


CAZB 85 D4 STA  D4 

CA7D 85 D7 STA D7 

CA7TF 68 PLA 

cABg 85 D5 sra D5 

CABZ 68 PLA 

CABZ3 85 D6 STA  D6 

CABS 4C 3BE3 JMP  E33B 

FALÁT NE KERLRE EBET HE RE BENE AE AE EAT AAL HE AE R-utasítás "Rename" 

caAgg 29 29 CZ JSR  C320 egységszám betöltése az utasítás-sorból 
CABB A5 E3 LDA  E3 

CABD 29 01 AND 401 

CABF 85 E3 STA E3 2. egységszám 

CA91 C5 E2 CMP EZ összehasonlítása az első egységszámmal 
CA93 FO 02 BEG CA97 azonos? 

CcA95 09 89 ORA 480 

CA97 85 E2 STA E2 

CA99 20 4F CA JSR — C44F file megkeresése a tartalomjegyzékben 
CA9C 209 E7 CA JSR — CARE7 léteznek a nevek? 

CA9F AS E3 LDA E3 

CAAL 29 01 AND 401 

CAAZ3 85 7F STA  7F egy ségszám 

CAAS5 A5 D9 LDA  D9? 

CcAA7 85 81 STA 81 szektor-szám 

CAA9 29 57 DE JSR — DE57 a blokk beolvasása a tartalomjegyzékből 
CAAC 20 99 D5 JSR — D599 0 K -t olvas? 

CAAF A5 DE LDA DE a tartalomjegyzék bejegyzés mutatója 
CAB1 18 cLe 

CAB2 69 03 ADC 4O3 

CAB4 29 CB D4 JSR — D4CB a puffer mutató beállítása 

CAB7 29 93 DF JSR DF93 a puffer számának betöltése 

CABA AB TAY 

CABB AE 7A 02 LDX 027A 

CABE A9 10 LDA $10 16 karakter 

CACO 29 6E C6 JSR C6G6E név beírása a pufferbe 

CAC3 20 SE DE J5SR DESE blokkok felítása a lemezre 

CAC4 20 99 D5 JSR — D599 Ok? 

CACI 4C 94 CI JMP  C194 kész, lemez-státus előkészítése 
FEERERE BEEE RE 9 FEJERE AE AE REA HE JE RE IEEE HEHE 96 946 file-ok lemezen való jelenlétének ellenőrzése 
CACC A5 EB LDA EB file-tipus 

CACE 29 07 AND 407 

CADO BD 4A 02 STA — 024A tárolása 

CAD3 AE 78 02 LDX 0278 

CADó CA DEX 

CAD7 EC 77 02 CPXx. . 8277 

CADA 909 0A BCC  — CAE6 

CADC BD 80 02 LDA  — 02809,X sáv-szám 

CADF DO F5 BNE — CAD6 nem egyenlő nullával? 

CAEi1 A? 62 LDA 462 

CAE3 4C CB CI JMP — CICB 62, "file not found" 

CAE6 60 RTS 

CAE7 20 CC CA JSR — CACC van korábbi nevű file? 

CAEA BD 89 02 LDA — 0289,X új file-ok sáv-száma 

CAED FOG O5 BERG — CAF4 volt file-törlés? 

CAEF A? 63 LDA 163 

CAF1 4C CB CI JMP — CICB 63, "file exists" 

CAF4 CA DEX 

CAFS 10 F3 BPL — CAEA 

CAF7 60 RTS 
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FENZEJE JEE HE JE E NE IE TERE JE AE AE JE AE IE IE AE A JE JE AE AE AL E E 


CAFB AD 01 02 LDA 0201 
CAFB C9 2D CMP  §2D 
CAFD DO 4C BNE CB4B 
CAFF AD 03 02 LDA 0203 
CBO2 85 6F STA 6F 
CBO4 AD 44 02 LDA 0204 
CBO7 85 70 STA 70 
CBO9 AD 00 LDY 400 
CBOB AD 02 02 LDA 0202 
CBOE C9? 52 CMP 452 
CBIG FO 0E BEG CB20O 
ECB1I2 20 58. F2 ISR F258 
CBI5 C9 57 CMP. §57 
CBI7 FO 37 BEG CB5SO 
CBI9 C9 45 CMPF 445 
CBIB DO ZE BENE CBAB 
CBID 6C 6F 00 JMP  (DD6F) 
EJERE TEAT E E JEE EE 9E JE JE AE JE AE JE KE JEE EE JE JE IE 946 
CB29  B1 6F LDA (6F),Y 
CB22 85 §5 STA 85 
CB24 AD 74 02 LDA 0274 
CB27 C9 06 CMP HOG 
CB29 90 1A BCC CB45 
CB2B ARE 05 02 LDX 0205 
CB2E CA DEX 

CB2F FO 14 BEC CB45 
CBS1 8A TXA 

CBS2Z 18 CLC 

CBS3 65 6F ADC 6F 
CBS5 ES 6F INC oF 
CB37 BD 49 02 sTA 0249 
CBS3A AS 6F LDA 6F 
CBSC 85 A5 sTA AS 
CBSE A5 70 LDA 70 
CB40 85 AG STA A6G 
CBA2 4C 45 D4 3 MP D445 
CB45 29 EB DO JSR DOEB 
CBAB 4C SA D4 JMF D43A 
CBAB A? 531 LDA $HSI 
CB4D 4C CB CI JMP cica 
TERERE ENE TE TE AE JE JE AE JE AE AE 4E 96 AE JE IE JEE JE AE AE AL AE 96 96 At 
CBSO B9 06 02 LDA 0206,Y 
CBS3 91 6éF STA (6F),Y 
CBS5 CB INY 

CBS6 CC 05 02 CPY 0205 
CB5S97 90 F5 BCC CB5SO 
CBSB 60 RTS 

FRETT E IE TEJE JE FEE HE JEE E EE JE A FE IE 9é 4é AE 9 
CBSC AC B1 02 LDY 0201 
CBSF CO 30 CPY  $50O 
CB61 DO 09 BNE CB6OC 
CB6S3 A? EA LDA HEA 
CBS5 85 6B STA 6B 
CB67 A? FF LDA HFF 
CB69 §5 6C STA 6C 
CBOB 60 RTS t 
CBOóC 29 72 CB JSR CB72 
CBóF 4C 94 CI JMP C194 


M-utasítás, "Memory" 
a második karakter a pufferből 


cím a $6F/879 után 


3. karakter a pufferből 
"R" 

ugrás a Memory Read-hoz 
/RTS/ 

" w " 

Memory Write-hoz 

"B " 


Memory Execute-hoz 


M-R "Memory Read" 
byte olvasása 
utasítás-sor hossza 
kisebb 6-nál 

igen 

szám /darabszám/ 


csak egy byte? 
byte-ok száma 


plusz a kezdőcím 
végmutató 


hibaüzenet puffer mutatója 
a M-R kezdőcímére 


a byte kiírása 
olvasócsatorna megnyitása 
byte-ok kiírása 


31, "syntax error" 


M-W "memory-write" 


karakter /karakterek/ olvasása 
és tárolása 


karakterek száma 
már az összes karakter? 


User utasítás 
második karakter 


ngn 


mutató az USER-címek táblázatán 
BFFBA 


kész, hibaüzenet előkészítése 
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CB72 88 DEY 


CB73 98 TYA 

CB74 29 OF AND  HOF szám 

CB76  0A ASL A kétszerese 

CB77 AB TAY 

CB7B Bi 6B LDA (6B),Y a tábla az adatban lévő mutatónál 
CB7A 85 75 sTA 75 

CB7C CB INY cím a £75/876 után 

CB7D Bil 6B LDA (6B),Y 

CB7F 85 76 STA 76 

CBB1 6C 75 00 JMP (90975) a művelet végrehajtása 

FENE E JEE TERE REAL TETEJE EREJE EE JE JE 9E E JE 3E 36 közvetlen elérésű csatorna megnyitása "it" 
CBB4 AD 8E 02 LDA  — OZ8E utolsó egységszám 

CB87 85 7F sTA 7F egységszám 

CBg9 A5 835 LDA 83 csatorna-szám 

CBBB 48 PHA 

CBBC 29 3D C6 JSR —CS3D egység ellenőrzése, esetleg inicializálás 
CBBF 68 PLA 

CB9g 85 83 sTA 83 

CB92 AE 74 02 LDX 0274 file-név hossza 

cCB95 CA DEX 

CB96 DO OD BNE — CBAS egynél nagyobb? 

CB9B A? 01 LDA 40Oi 

CB9A 20 E2 DI JSR  DIEZ2 csatorna és puffer lefoglalása 
CB9D 4C FI CB JMP  CBFI kapcsolók beállítása, kész 
CBAgG A? 70 LDA 470 

CBAZ 4C CÉ CI JMP — CICB TÓ, "no channel" 

CBAS AN 01 LDY 401 

CBA7 29 7€ CC JSR — CC7C a puffer-szám betöltése 

CBAA AE 85 02 LDX 09285 puffer-szám 

CBAD Eg 05 CPX 405 nagyobb, 5-tel egyenlő? 

CBAF BO EF BCS — CBAO 78, "no channel" 

CBBI A? 00 a LDA HOG 

CBB3 685 6F STA eF 

CBBS5 85 70 STA 70 

CBB7 58 SEC 

CBBB 26 6F ROL 6F puffer megkeresése a foglaltsági regiszterben 
CBBA 26 70 ROL 70 

CBBC CA DEX 

CBBD 108 F? BPL CBB8 

CBBF AS 6F LDA eF 

CBCi 2D 4F 02 AND — 024F 

CBC4 DO DA BNE CBAD puffer foglalt? 

CBCó6 A5 70 LDA 70 

CBC8 ZD 59 02 AND 9250 

CBCB DO D3 BNE . CBAB puffer foglalt? 

CBCD A5 6F LDA 6F 


CBCF OD 4F 02 ORA 024F 
CBD2 BD 4F 02 STA 024F 


CBD5 A5 70 LDA 70 puffer lefoglalása 

CBD7 OD 50 82 ORA — 0250 csatorna megkeresése és lefoglalása 
CBDA 8D 50 02 sTA 0250 

CBDD A? 00 LDA HOO 

CBDF 20 E2 Di JSR — D1E2 

CBE2 A6 82 LDX 82 csatorna-szám 

CBE4 AD 85 02 LDA 0285 puffer-szám 

CBE7Z 95 A7 STA  A7,X 

CBE9 AA TAX 

CBEA A5 7F LDA  7F egységszám 

CBEC 95 00 STA  00,X 

CBEE 9D 5B 02 STA  025B,X 

CBFi A66B3 LDX 83 másodlagos cím 

CBF3 BD 2B 02 LDA — OZ2ZB,X 

CBF6 09 40 ORA $H40D a READ és a WRITE kapcsolók beállítása 
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CBFB 9D 2E 02 STA D22B , X 


CEHFB A4 82 LDY 82 csatorna-szám 

CBFD AR? FF LDA HFF 

CBFF 99 44 02 STA  0244,Y végmutató 

CCO2 A? 89 LDA 489 

CCO4 99 F2 00 sTaA 00F2,Y a READ és a WRITE kapcsolók beállítása 
CCO7 B9 A7 00 LDA — O0AZ,Y puffer-szám 

CCOA 99 3E 02 STA  OZJSE,Y 

CCOD 9gA ASL A 2-szer /2-szeres/ 

CCOE AA TAX 

CCOF A? 01 LDA 4$0OI 

CCi1 95 99 STA 99,Xx puffer mutató egyesen 

CcCcCíi3 A? 0E LDA HOE 

CCI15 99 EC 00 STA — OBEC,Y közvetlen elérésű kapcsoló 
CCIB AC 94 CI JMF C194 kész 

ALLEN E ÁE AE EA ÁE ÁE AE AL A AE At HÉ JE 44 99646 9É B-utasítás, "Block" 

CCIB AB 09 LDY 400 

CCIiID AZ 00 LDX 400 

CCIF A? 2D LDA  $2D kéz 

CC21 29 68 C2 JSR C268 minusz jel keresése 

CC24 DO XA BNE — CC3O megvan? 

CC26 A? 31 LDA 451 

CC2B 4C CB CI JMF — CICB 31, "ayntax error" 

CC2B A9 50 LDA 4HZD 

CC2ZD 4C CB CI JMF — CICB 34, "eyntax error" 

Cccso BA TXA 

cc3zi DO FB BNE CC2B ha vessző, akkor hiba! 

CCSI AZ 05 LDX 405 

CCS5S B9 00 02 LDA OZO0G,Y pufferből kapott karakter 
CCcS8 DD 5D CC CMP CCSD,X összehasonlítása az "AFRWF"-el 
CCSB FO OG5S BEO CC42 megvan? 

cCcsD CA DEX 

CCSE 10 FA BPL — CCSB összehasonlítás az összes többi karakterrel, 
Cc4ág 30 E4 BMI CC26 ha nincs meg, akkor hiba! 
CcCcaá2 BA TXA 

CC4Az 09 80 ORA 480 utasítás-szám, beállítása a 7-es bitnek 
CC45 BD 2A 02 sSTA 022A 

CC4AB 209 6F CC JSR CCeF a paraméter betöltése 

CCAB AD 2A 02 LDA 022A 

CG4E 0A ASL A a szám 2-szer nagyobb 

CC4áF PA TAX az indexnél 

CCSY BD 64 CC LDA — CCG4,X utasításcím /Hi/ 

CcCs3 85 709 STA 70 

CcCcS3 BD 65 CC - LDA CC63,XxX utasításcím /10/ 

CcCS8 85 éF STA 6F 

CCSA 6C 6F 00 JMF  (OGGF) ugrás az utasításhoz 

AE RENÉE E 3 E AE 96 ANEJE NE JE JEE JEA JE JE JE JEA E különböző "AFRWEP" blokk-utasítások nevei 


CCSD 41 46 52 57 45 50 


NEEE TE NÉ RE E TE AE AE AE E TEJE JE EE NEJE NE EE blokk-utasítások címei 

CCé3 903 CD ÉCDY3, B-A 

CC65S F5 CC $CCF5, B-F 

CC67 56 CD $CD56, B-R 

CCé9 73 CD $C0D73, B-W 

CCGB AZ CD BDCDA3, B-E 

CCéD BD CD ÁCODBD, B-P 

FEEL AEE E EE NE NE ENE AE AA TE E JEE EE HE EE ÁAK a blokk-utasítások paramétereinek betöltése 
CC6éF AG 00 LDY $OD 

CC71 A2 400 LDX HOD 

CC73 AZ SA LDA  §3A epe 

CC75 20 69 CZ J8R C268 a sorok kettőspontig tesztelése 
CC78 DB 02 HNE CC7C megvan? 
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CC7A Ap 03 LDY 403 nincs, a 4. karaktertől kezdeni 


CC7C B9 09 02 LDA 9299 ,Y megkeresni az elválasztójelet! 
CC7F CI 29 CMP 420 , " space 

CCBI FG 08 BEG CCBB 

cc83 CI 1D CMP  $ID kurzor jobbra 

ccs5 Fg 904 BEO CCBB ezét tsa 

ccs7 C? 2C CMP 0 §$2C k 
CC89 DA 07 BNE CC92 , 
CCBB CB INY 

CC8BC CC 74 02 CPY 0274 sor vége? 

CCSBF 99 EB BCC CC7C 

CCYI 60 RTS 

CCY92 29 Al CC JSR CCA1 a következő paraméter átvitele! 
CC95 EE 77 02 INC " 09277 a paraméter-számláló növelése 
CCYB AC 79 02 LDY: 0279 

CCYB EG 04 CPX 404 összehasonlítás E 
CCYD 99 EC BCC — CCBB még nem lépte túl a maximális számot 
CCYF BO 8A BCS. CC2B 39. "gyntax error" 

CCAI A? 09 LDA HOD 

CccaAZ3 85 6F STA 6F 

CccAS5 85 70 STA 70 

CCAZ 85 72 STA 72 

CCAY AZ FF LDX  §FF 

CCAB B9 09 02 LDA 2290 ,yY a karakter betöltése az input-pufferből 
CCAE C9 40 CMP  4H4D 

CCBO BO 18 BCS — CCCA nem számjegy? 

CCB2 CI IB CMP  4H3D "gn 

CCB4 99 14 BCC CCCA nem számjegy? 

CCB6 29 OF AND  $HOF konvertálás hexadecimálisra 
CCBB 48 PHA 

CCB9 A5 70 LDA 70 

CCBB 85 71 sSTA 71 eltolás 

CCBD A5 6F LDA 6F 

CCBF §5 70 STA 70 

CCCi1 68 PLA 

CCC2 85 6F STA eF olvasott szám tárolása 

ccc4 CB INY mutató növelése 

CCCS CC 74 02 CPY 0274 sor vége? 

CCC8 99 El BCC — CCAB nem 

CCCA 8C 79 02 STY 9279 mutató tárolása 

CCCD 18 CcLcC 

CCCE A? DO LDA HOD 

CCDO EB INX 

CCD1 Eg 053 CPX HOZ 

CCD3 BO OF BCS CCE4 hexadecimális átalakitás 

CCDS B4 6F LDY 6F,X 

CCD7 88 DEY 

CCDB 309 F6 BMI CCD 

CGDA 7D F2 CC ADC  CCF2,X decimális érték hozzáadása 
CCDD 909 FB BCC CCD7 

CCDF 18 CLC 

CCEG E46 72 INC 72 

CCE2 DO F3 BNE CCD7 

CCE4 48 PHA 

CCE5 AE 77 02 LDX " . 8277 paraméter-számláló 

CCE8B A5 72 LDA 72 

CCEA 9D 89 02 sTA 0280 , X Hi-byte 

CCED 68 PLA 

CCEE 9D 85 02 STA 0285 ,Xx Lo0-byte 

CCF1i1 60 RTS 

ERTETTED TETEJE ENE EJ E IE JE JEE JE 9E 9 E JE JE 2E3E94-E 9E l, 19, 198 decimális 

CCF2 01 0A 64 érték 

JEJEJEJE RE TE E BE JE RE TE TEJE JE JE JEE JE JE JE JE JE 3E AE IE JE AE B-F utasítás, "Block free" 
CCFS 29 FS CD JSR CDFS a sáv, szektor és egységszám betöltése 
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CCFB 208 SF EF JSR EF5SF 
CCFB 4C 94 C1 JMPF C194 
JEE E AE BE JE JE BEJE JE TE TEA JE AE AE JE IEEE AE AE At JE 364 At At A 
CCFE A? 01 LDA 401 
CDOO 8D F9 02 STA D2F? 
EE TETEJE TE 9 JE TE AE IE TEJE TE IEEE JE JE ZE b At 9E IE 9 
CDOZ 29 FS CD JSR CDF5 
CDog6 AS BI LDA 81 
CDO8 48 PHA 

CDO9 209 FA F1 JSR Fi1FA 
CDOC FO OB BEG CD197 
CDOE 68 PLA 

CDOF CS 81 CMP 81 
CD11 DO 19 BNE CD2C 
CDI3 209 908 EF JSR EF90 
CD16ó6 4C 94 CI JMP C194 
CDI79 6B PLA 

CDIA A? 00 LDA $HOD 
CDIC 85 81 STA 81 
CDIE Eó BO INC 80 
CD29. AS 80 LDA BO 
CD22 CD D7 FE CMP FED7 
CD25 BO 0A BECS CD31 
CD27 209 FA Fi JSR FiFA 
CD2A FO EE BEG CD1A 
CD2C A? 65 LDA Hó5 
CD2E 209 45 E6 JSR E645 
CDS1 A? 65 LDA 165 
CDSS 209 CB CI JSR CicC8 
FEJE TE ZTE TE EE JE IE KE E JEE JE JE IE 9 JE AE E AE AE 9E At AE 9E9E 
CD36 20 FZ2 CD JSR CDF2 
CDS9 A4C 60 D4 JMPF D460 
EE E JE JE AE ME TEA E JE IEEE JE EME EZÉ AE RE EE 9É E Et 94 9t 
CD3C 209 2F Di JSR D12F 
CDSF Al99 LDA (99,X) 
CD41 60 RTS 

TETTE REÁL E TEÁT REAL E IE ÁE IE At At E ÁE JEE E E ATA 939 
CD42 209 36 CD JSR CD36 
CD45 A? 00 LDA 4gB 
CD47 20 CB D4 JSR DA4ACB 
CD4A 209 3C CD JSR CDSC 
CD4D 99 44 02 STA 0244 ,Y 
CDSO A? B9 LDA HB? 
CDS2 99 F2 00 STA D00F2,Y 
CDS5 60 RTS 

EE AE E IE AE AJ JE 9E E JE IE At JE JE IEEE JE IE IE At E 36 3646 
CDS6 20 42 CD JSR CD42 
CDS97 28 EC DS JSR DSEC 
CDSC 4C 94 Ci JMP C194 
EJEÁEJE JE IE JE JE AE AE JE AE E JE AE JE JE JE TEJE JE JE 9E JE JE AE 36 36 At 
CDSF 29 6F CC JSR CCSF 
CDSZ 20 42 CD JSR CD42 
CD65 B97 44 02 LDA 02344 ,Y 
CD6B 99 3E 02 STA O2SE,Y 
CD6GB A? FF LDA HFF 
CD6D 99 44 02 sTA 02494 ,Y 
CD70 4C 94 CI JMP C194 


a blokk felszabadítása A 
kész, hibaüzenet előkészítése 


B-A utasítás, "Block Allocate" 


sáv, szektor és az egységszám betöltése 
szektor 

tárolása 

a blokk keresése a BAM-ban 

foglalt a blokk? 

a kívánt szektor 

azonos a következő szabad szektorral? 
nem 

blokk lefoglalása a BAM-ban 

kész 


9 szektor 

következő sáv 

sáv-szám 

36, utolsó sáv-szám 41 

ha nagyobb vagy egyenlő "no block" 
szabad blokk keresése a következő sávon 


ha nincs, a következő sáv ellenőrzése 
65, "no block" következő szabad blokk 


65, "no block" nincs több szabad blokk 


csatorna megnyitása, paraméter 
beállítása 

blokk olvasása a lemezről 

egy byte betöltése a pufferből 


mutató beállítása a pufferen belül 
a byte betöltése 


egy blokk olvasása lemezről 
csatorna megnyitása, blokk olvasása 


puffer mutató nullára állítása 
egy byte beolvasása a pufferből 


az irás- és olvasás-kapcsoló beállítása 


B-R utasítás, "Block Read" 
egy blokk olvasása lemezről 
a byte előkészítése 

a hibaüzenet előkészítése 


Ul utasítás, "Block Read" helyettesítése 
utasítás paraméterének beolvasása 

blokk olvasása lemezről 

végmutató tárolása 

adatbyte-ként 


végmutató $FF-en 
kész, hibaüzenet előkészítése 
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VERE RÉME E 4E 96-46 3E4E-HE At 6-9 HE 9E JE 9E HE IE AI ÁE AE 9E tt At 


CD73 209 F2 CD JSR CDF2 
CD76 28 EB D4 JSR D4E8 
CD79 AZ TAY 

CD7A 88 DEY 

CD7B C? 02 CMP 4O2 
CD7D BB OZ BCS CDB1 
CD7F AG OI LDY $01 
CDB1 A? 009 LDA 400 
CD83 209 CB D4 JSR D4CB 
CDB6 98 TYA 

CD87 29 Fi CF JSR CFF1 
CDBA BA TXA 

CDBB 48 PHA 

CDBC 20 64 D4 JSR D464 
CDBF 68 PLA 

CD98. AA TAX 

CD91 29 EE DS JSR DSEE 
CD94 4C 94 CI JMP C194 
LL ösöslnősásásösásűsásáststsásásásásásásásásásásásá 
CD97 29 6F CC JSR CCSF 
CD9A 29 F2 CD JSR CDF2 
CD9D 20 64 D4 JSR D464 
CDAG 4C 94 CI JMP C194 
CDAZ3 29 58 F2 JSR F258 
CDAG 29 36 CD JSR CD36 
CDAT A? 00 LDA 4OO 
CDAB 85 6F STA 6F 
CDAD A6 F? LDX F? 
CDAF BD Eg FE LDA FEEG,X 
CDB2 85 70 STA 70 
CDB4 29 BA CD JSR CDBA 
CDB7 4C 94 Ci JMP C194 
CDBA 6C éF 00 JMP (O06F) 
körösösüsásásösérösüsösísösísísűsístsásásásásásásösösásési 
CDBD 29 D2 CD JSR CDDZ2 
CDCG AS F? LDA F? 
CDC2 0A ASL A 
CDC3 AA TAX 

CDC4 AD 86 02 LDA 0286 
CDC7 95 99 STA 99,Xx 
CDC9 29 2F Di JSR D12F 
CDCC 29 EE D3 JSR DSEE 
CDCF 4C 94 CI JMP C194 
b ástntststsösásösáséststsűsűssűsásísásásástsásásáásásásó 
CDD2 AG D3 LDX DS 
CDD4 E6 D3 INC DS 
CDD6 BD 85 02 LDA 0285 ,Xx 
CDD9 AB TAY 

CDDA 88 DEY 

CDDB 88 DEY 

CDDC CO OC CPY $OC 
CDDE 909 05 BCC CDE5S 
CDE0 A? 70 LDA 470 
CDE2 4C CB CI JMP CiCc8 
CDES5S §5 85 STA ss 
CDE7 209 EB DO JSR DOEB 
CDEA B9g F4 BCS CDEO 
CDEC 28 93 DF JSR DF95 
CDEF 85 F9? STA F9? 
CDF1 60 RTS 


B-W utasítás, "Block Write" 
a csatorna megnyitása 
a puffer mutató beállítása 


puffer mutató 2-nél kisebb /Lo/ 
nem 


puffer mutató nullán 
byte beírása a pufferbe 


blokk felírása a lemezre 


byte kihozása a pufferből 
kész, hibaüzenet 


U2, "Block Write" helyett 

utasítás paraméterének betöltése 

csatorna megnyitása 

és a blokk beírása a lemezre 

kész 

"B-E" utasítás, "Block Execute" 

/RTS/ 

csatorna megnyitása és a blokk beolvasása 


cím /Lo/ 
puffer-szám 
cím /Hi/ 


ugrás a rutinhoz 
kész 


ugrás a rutinhoz 


B-P utasítás, "Block Pointer" 

csatorna megnyitása, puffer-szám betöltése 
puffer-szám 

z2 

indexként 

mutató-érték 

puffer mutató tárolása 

egy byte a pufferből 

egy byte előkészítése 

kész 


csatorna megnyitása 


puffer-szám 


puffer-szám 14-nél kisebb 
igen 
70, "no channel" 


másodlagos cím 

csatorna megnyitása 

ha már foglalt, 79 "no channel" 
puffer-szám 

beállítása 
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NEEE EE NE Át E Az EÁ AE AE AE At AE AE AE AE AE 96-96-36 


CDF2 29 D2 CD JSR CDDZ2 
CDFS AG DS LDX DS 
CDF7 BD 85 02 LDA 0285 ,X 
CDFA 29 01 AND 401 
CDFC 85 7F STA z§ 
CDFE BD §7 02 LDA 9287., X 
CEG1 85 81 STA 81 
CEOS BD 86 02 LDA 9286, X 
CEG6 685 BO STA 80 

, CEOo8 209 5F DS JSR DSSF 
CEOB 4C 09 Ci JMP C109 
TEVE RE JE NENE E IE EE RE AE At 3E E 9E 46 dt 9EAEAE 46-36 A-96 46-36 
CEGE 209 2C CE JSR CEZ2C 
CE1i 208 6E CE JSR CEGE 
CE14 A5 90 LDA 90 
CE16 85 D7 STA D7 
CEIB 20 71 CE JSR CE71 
CE1B FéD7 INC D7 
CEID E6 D7 INC D7 
CEIF AS BB LDA BB 
CE21 85 D5 STA D5 
CE23 A5 90 LDA 909 
CE25 0OA ASL A 
CE26G 18 CLC 

CE27 69 10 ADC $IO 
CE29 85 D6 STA D6 
CEZB 60 RTS 

TETEJE TETEJE IE JE 9E AE E IE TERE E TEJE AE ÁE ÁE JE JE JE AE 9E 96 9E9t 
CEZ2ZC 29 D? CE JSR CED? 
CE2F 85 92 STA 92 
CE31 A6 82 LDX 82 
CESS BS BS LDA BS,X 
CESS5 85 90 STA 99 
CE37 B5S BB LDA BB, X 
CES9 85 91 STA 91 
CESB DO 04 BNE CE41 
CES3D AS 90 LDA 90 
CESF FO OB BEG CE4C 
CE41 A5 90 LDA 909 
CE45 58 SEC 

CE44 E? 01 SBC H01 
CE46 85 90 STA 909 
CE48 BO 02 BCS CE4C 
CE4A C6 91 DEC 9i 
CE4C B5S C7 LDA C7,Xx 
CE4E 85 6F STA 6F 
CESO 46 6F LSR 6F 
CES2 99 03 BCC CES7 
CES4 20 ED CE JSR CEED 
CES7 29 E5 CE JSR CEES 
CESA AS 6F LDA eF 
CESC DO FZ2 BNE CE5O 
CESE A5 D4 LDA D4 
CEGO 18 CLC 

CEGi1 65 BB ADC 8B 
CES3 85 8B STA BB 
CEG5 99 06 BCC CE6GD 
CES7 E6 BC INC 8c 
CEG9 DO 02 BNE CE6GD 
CEGB E6 8D INC BD 
CEGD 60 RTS 


EREJE JEE E E NEJE AE AE ÁE IE AE ÁE E JE JE AE HE JE JE JE JEE JE JE AE 
CEGE A? FE 


CE7G 


2C 


LDA 


$FE 


puffer-szám ellenőrzése, csatorna megnyitása 
csatorna-szám 
puffer-cím 


egységszám 

szektor 

sáv 

sáv és szektor ok? 

LED bekapcsolása 

REL-file mutatójának beállitása 
rekord-szám x rekordhosszúság osztva 


254-gyel - adatblokkok száma 
osztás maradéka - adatblokkban lévő mutatóval 


adat-mutató 


adatmutató plusz 2 /sáv, szektor-mutató! / 
az osztás eredménye 

egyenlő az oldal-szektor számmal 

az osztás maradéka 

2-szer 

plusz 216 . 

egyenlő az adatblokkon az oldal- 
szektorban lévő mutatóval 

operatív tár törlése 


csatorna-szám 
rekord-szám /Lo/ 


rekord-szám /Hi/ 


nem egyenlő nullával a. rekord-szám? 


ha nem, egyet levonni 
rekordhosszúság 


rekord-szám x rekordhosszúság 
regiszter balra léptetése 


t 
eredmény a 288B/£8C€/£8D-ben 


osztás 254-gyel, adatblokk-szám kiszámitásához 
254 
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ÁVNAÁÁÁA NA ÁÁÁ RÁ A ÁÁ ÁL ÁL Ét E ALA JE Ab KE EE 


CE71 A? 78 LDA 
CE73 6865 6F STA 
CE75 AZ 0J LDX 
CE77 85 BF LDA 
CE79 48 PHA 
CE7A B5 BA LDA 
CE7C 95 8F STA 
CE7E 68 PLA 
CE7F 95 BA STA 
CEBI CA DEX 
CEB2 DO F3 BNE 
CEB4 29 D? CE JSR 
CEB7 AZ 00 LDX 
CEBY9 B5 908 LDA 
CEBB 95 8F sSTA 
CEBD E8 INX 
CEBE EV 04 CPX 
CE99 99 F7 BCC 
CE92 A? 00 LDA 
CE94 85 92 STA 
CE96 24 óF BIT 
CE98g 30 09 BMI 
CEgA 06 BF ASL 
CE9C 08 PHP 
CE9D 46 8F LSR 
CE9F 28 PLP 
CEAG 20 E6 CE JSR 
CEA3 29 ED CE JSR 
CEA6 20 ES CE JSR 
CEA9 24 6F BIT 
CEAB 39 05 BMI 
CEAD 20 EZ CE JSR 
CEBB  A5 BF LDA 
CEB2 18 CLC 
CEB3 65 90 ADC 
CEBS 85 909 STA 
CEB7 99 06 BCC 
CEB9 Eéó 91 INC 
CEBB DO 02 BNE 
CEBD E6 92 INC 
CEBF A5 92 LDA 
CECI 05 91 ORA 
CECS DO C2 BNE 
CECS AS 99 LDA 
CEC7 58 SEC 
CECB ES 6F SBC 
CECA 989 OC BCC 
CECC E6 BB INC 
CECE DA 06 BNE 
CEDO E6 8C INC 
CED2 DO 02 BNE 
CED4 E6 8D INC 
CEDG 85 90 STA 
CEDB 60 RTS 
TEHÉN EE A At AL EE Át AE JE AE AE ENE IEEE AE 44 46 64646 
CED9 A? 00 LDA 
CEDB 85 8B STA 
CEDD 6865 eC STA 
CEDF 85 8D STA 
CEE1 60 RTS 


La LA Adás ástsásásásásásásásásásáásásásásásösási 
CEE2 20 E5 CE 


JSR 


478 
éF 
hos 
BF ,X 


BA, X 
BF, X 


400 
BB 
ec 
BD 


CEES 


az óldal-szektor kiszámítása 
129 
osztó 


az operativ tár törlése 


1-es regiszter balra léptetése 
Z regiszter tartalmának hozzáadása az 1-es-hez 
1-es regiszter balra létetése 


1-es regiszter kétszeri balra léptetése 


hányados a .288/£80C/28D-ben 


maradék a 8944-ben 


operativ tár törlése 


a regiszter kétszeri balra léptetése 


137 


FEKETE RE TE BE EE JE TE AE AE AE E At-AE AE AE JE AE át 9E 3E AE ÁE a regiszter egyszeri balra léptetése 
CEES5S 18 ELC 


CEE6 26 90 (ROL 90 
CEEB 26 91 ROL 91 

CEEA 26 92 ROL 92 

CEEC 60 RTS 

CEED 18 ÉGE 

CEEE A2 FD LDX  $FD 

CEFO  B5 BE LDA  8E,X £99/891/£92 regiszter tartalmána hozzá- 
CEF2 75 93 ADC  93,X adása a $8B/$8C/£8D regiszterhez 
CEF4 95 BE STA — BE,X 

CEF6 EB INX 

CEF7 DO F7 BNE — CEFO 

CEF9 60 RTS 

CEFA AZ 00 LDX  4O0 

CEFC BA TXA 

CEFD 95 FA STA FA,X 

CEFF EB INX 

CFOO0 EG 04 CPX 404 

CFO2 DO FB BNE — CEFC 

CFO4 A? 06 LDA HOG 

CFO6G 95 FA STA  FA,X 

CFOB 60 RTS 

CFO9 AG 04 LDY 404 

CFOB A6 82 LDX 82 csatorna-szám 

CFOD B9 FA 00 LDA — 00oFAdY 

CFIO 96 FA STX  FAJY 

CF12 C5 82 CMP 82 csatorna-szám 

CFI4 FO OZ BEN — CFID 

CF16 88 DEY 

CFI7 30 E€1 BMI — CEFA 

CF19 AA TAX 


CFIA 4C OD CF JgMP CFOD 
CFID 60 RTS 


CFIE 29 09 CF J5SR CFO? 
CF21 20 B7 DF JSR DFB7 


CF24 DO 46 BNE — CF6C 

CF26 20 D3 Di JSR  DiID3 egységszám beállítása 
CF29 29 BE D2 JSR — DZBE 

CF2C 309 48 BMI  CF76- 

CF2E 29 C2 DF JSR — DFC2 

CF31 A5 BO LDA 80 sáv 

CF33 48 PHA 

CF34 A5 81 LDA 81 szektor 

CF36 48 PHA 

CF37 A90O0I LDA 401 

CF39 29 F6 D4 ISR — D4F6 1-es byte a pufferból 
CF3C 685 81 sTA 81 szektor 

CF3E A? 00 LDA 400 

CF49g 20 Fó D4 JSR — D4F6 d. byte a pufferból 
CF43 85 80 sra 80 sáv 

CF45 FO IF BEG — CF66 

CF47 20 25 DI JSR D125 file-tipus ellenőrzése 
CF4A FO BB BEG CF57 relatív file? 

CF4C 20 AB DD JSR — DDAB 

CF4F DO 06 BNE — CF57 


CFS1 20 8C CF JSR CFe8C 
CFS4 4C SD CF JMP CF5D 


CFS7 209 8C CF JSR CF8C 


CFSA 209 57 DE JSR DE5S7 
CFSD 68 PLA 
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CFSE 85 81 STA 
CF6R 68 PLA 
CF61 85 80 STA 
CF63 4C 6F CF JMP 
CF66 68 PLA 
CF67 85 81 STA 
CF69? 68 PLA 
CFGA 85 90 STA 
CF6C 20 BC CF JSR 
CFOF 29 93 DF IJSR 
CF72. AR TAX 
CF73 4C 99 D5 JMP 
CF76 AY 70 LDA 
CF7A 4C CB CI JMP 
CF7B 20 09 CF JSR 
CF7E 29 B7 DF JSR 
CFB1 DO 08 BNE 
CFB3 20 BE D2 JSR 
CFB6 309 EE BMI 
CFEB 29 C2 DF IJSR 
CFOB 60 RTS 
VETEK ALA AE AA AE AE ALL AK A AE E E A 9 JE JER AE JE E At át JÉ 
CFBC A6 B2 LDX 
CFBE B5 A7 LDA 
CF90 49 80 EOR 
CF92 95 A7 STA 
CF94 B5 AE LDA 
CF9G 49 80 EOR 
CF9B 95 AE STA 
CFJA 60 RTS 
FEJED JEE JE JE JE IEEE AE AE AE NE IE At IE E AE ALAK JE JE AE EE AE 9E 
CF9B A2 12 LDX 
CF9D B6ó 83 STX 
CF9F 29 97 DI JSR 
CFA2 29 00 CI JSR 
CFAS 20 25 DI JSR 
CFAB 90 05 BCC 
CFAA A9 20 LDA 
CFAC 20 9D DD JSR 
CFAF A5 83 LDA 
CFB1 C9? OF CMP 
CFB3 FO 23 BEG 
CFB5 DO 08 BNE 
CFB7  A5 84 LDA 
CFB9 29 8F AND 
CFBB C9 OF CMP 
CFBD BO 19 BECS 
CFBF 209 25 Di JSR 
CFC2 BO 05 BCS 
CFC4 A5 85 LDA 
CFC6 A4C 9D Di JMP 
CFC? DO 03 BNE 
CFCB 4C AB E0 JMP 
CFCE A5 85 LDA 
CFDB 20 Fi CF JSR 
CFD3 A4 82 LDY 
CFDS5 4C EE D3 JMP 


81 


80 
CFOF 


B1 


Bo 
CF8C 
DF95 


D599 


470 
cics 


CFO9 
DFB7 
CF8B 
D2BE 
CF76 
DFC2 


82 
A7,X 
480 
A7,X 
RE ,X 
480 
RE ,X 


szektor- 


és a sáv-szám visszatöltése 


szektor- 


és a sáv-szám visszatöltése 


és ellenőrzése 


70, "no channel" 


puffer váltás 
csatorna-szám 


a 7-es bit megfordítása a táblázatban 


adatbyte beírása a pufferbe 
18-as csatorna 


írás-csatorna megnyitása 
LED bekapcsolása 
file-tipus ellenőrzése 
nem relatív file 


puffer váltás 


másodlagos cím 
19? 
igen 
nem 
másodlagos cím 


nagyobb vagy egyenlő mint 15? 

ha igen, - input-puffer 

file-tipus ellenőrzése 

relatív file vagy közvetlen elérés? 
adatbyte 

betöltése a pufferbe 


közvetlen elérésű file? 
adatbyte-ok beírása a relatív file-ba 


adatbyte beírása a pufferbe 
következő byte-csatorna számának 
előkészítése 


1939 


CFDB A9 04 LDA 4G4 
CFDA 685 82 sTA 82 
CFDC 29 EB D4 JSR — D4EB 
CFDF C9 2A CMP.. 42A 
CFE1 FO 05 BEOG — CFEB 
CFE3 A5 85 LDA 85 
CFE5 20 Fi CF ISR — CFFI 
"CFER A5 FB LDA  F8 
CFEA FOG 01 BEG — CFED 
CFEC 60 RTS 

CFED EE 55 02 INC — 9255 
CFFO. 609 RTS 

ENE TE A At At JE E E AE 9E AEK JE HE AE A AE 9EHE 9E-AÉ Ata 96 969 ét 9 
CFF1 48 PHA 

CFF2 20 93 DF JSR — DF93 
CFF5 10 06 BPL — CFFD 
CFF7 68 PLA 

CFFB A9 61 LDA tói 
CRAG 46 EB Ci JMP — CICB 
CFFD. gA ASL A 
CFFE AA TAX 

CFFF 68 PLA 

DO00 81 99 STA (99,X) 
DO02 F6 99 INC  99,X 
DO04 69 RTS 

JEE EZÉ JE E 99 JÉ Ab 99 JE JEE JEE ABE EE 99 
DO05 29 Di CI JSR. CiIDI 
DO08 29 42 DO JSR — D042 
DOOB 4C 94 C1 JMP — C194 


TEJE BENE JE AE JE JE AE ÁE NEE AE AE EE AE 9-9 HÉ AE IE AE Ak At 1-E 969 


DOOE 29 OF FI JSR F10F 
DO11 AB TAY 

DO12 B6ó6 A7 LDX A7,Y 
DO014 ED FF CPX  HFF 
DO16 DO 14 BNE DOZ2C 
DO18 48 PHA 

DO019 29 8E D2 JSR D28E 
DO1C AA TAX 

DO1D 19 05 BPL D0o24 
DO1F A? 70 LDA $H7D 
DO21 20 48 E6 JSR E648 
DO024 68 PLA 

DO2S5 AB TAY 

DO26 8A TXA 

D027 09 80 ORA 480 
D029 99 A7 00 sSTA 00A7 ,Y 
DOZ2ZC 8A TXA 

DO2ZD 29 oF AND  $OF 
DO2F 85 F9 STA F9g 
DO31 AZ 00 LDX HOG 
DO33 86 81 STX B1 
DO35 AE 85 FE LDX FES85 
DOSB 686 80 STX ag 
DOSA 20 DS D6 JSR D6ODS 
DOSD A? BO LDA  HBO 
DOS3F 4C 8C D5 JMP D58C 


TEÁRA AE At 999 E TE AE AA EE AE Et At EE 969496 9-9 


DO42 209 DI FO JSR FOD1 
DG45 29 13 DS JSR D315 
DO048 29 GE DO JSR DO0E 
DO4B A6 7F LDX ve 


4-es csatorna 

megfelel az input-puffernek 
A zááső mutató beállítása 
4 


puffer vége? 
adatbyte beírása a pufferbe 


be van állítva a kapcsoló? 
igen 


az utasítás-kapcsoló beállítása 


adatbyte beírása a pufferbe 
adatbyte tárolása 
puffer-szám betöltése 

hozzá van rendelve a puffer? 


61, "file not open" 


puffer-szám kétszer nagyobb 
az indexnél 

adatbyte 

beírása a pufferbe 

puffer mutató növelése 


1-utasítás, inicializálás 
egységszám megkeresése 
BAM betöltése 
lemez-státus előkészítése 


70, "no channel" 


Z szektor 

18 

18-as sáv 

paraméter átadása a lemezvezér. 
Block Header lesen" utasításk 

a lemezvezérlőnek 


BAM betöltése 


blokk olvasása 
egységszám 
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da át átadása 


DO4D A? 00 LDA 4$0D 
DO4F. 9D 51 02 sTA 0251 ,XxX 
Do52 8A TXA 

DaS3 0A ASL A 
Dos4 AA TAX 

Dpes5 A5 16 LDA 16 
Do57 95 12 STA 12,X 
D959 A5 17 LDA 17 
DoSB 95 153 STA 13,X 
DOS5D 20 86 D5 JSR D586 
D060 AS F? LDA F9 
DO062 0A ASL A 
D063 AA TAX 

D064 A? 02 LDA OZ 
DO66 95 99 STA 99,x 
DO6B Al 99 LDA (99,X) 
DO6CA A6 7F LDX 7r 
DO6C 9D 01 01 sTA 0101,Xx 
DO6F A? 00 LDA HOD 
Do71 95 1C STA 1C,X 
D073 95 FF STA FF,X 
LED a aa ha A ás kdotoásástsásásásístststsásásásásásási 
D075 29 SA EF JS8R EF35A 
D078 Ag 04 LDY 404 
DO7A A? 00 LDA 400 
DO7C AA TAX 

DO7D 18 CLC 

DO07E 71 6D ADC (6D),Y 
Do89 98 01 BCC Do83 
Da82 E8 INX 

Dos3 CB INY 

Do84 CB INY 

Do85 C8 INY 

D086 CB INY 

D087 Co 48 CPY 4§$48B 
DO897 FOGFA BEg Dos83 
DOBB CO 99 CPY 490 
DO8D DO EE BNE D07D 
DOBF 48 PHA 

D099  8A TXA 

DO091 A6 7F LDX FE. 
D9093 9D FC 02 STA O2ZFC,X 
D096 68 PLA 

D097 9D FA 02 STA O2FA,X 
DOJA 60 RTS 

Lá á kodsásdestsásásásásásássásástsásásásásásásösásősi 
DO9B 206 DO D6 JSR D6óDO 
DO9gE 29 C3 DO J5R DaCS 
DOA1 29 99 D5 JSR D599 
DOA4 209 37 Di JSR D137 
DOA7 85 89 STA 80 
DOA9 29 37 DI JSR D1357 
DOAC 685 81 sTA 81 
DORAE 60 RTS 

DOAF 29 9B DO JSR DO9B 
DOB2 A5 89 LDA 80 
DOB4 DO 01 BNE DBB7 
DOBó6 609 RTS 

DOB7 209 1E CF JSR CF1E 
DOBA 29 DO D6 JSR D6DO 
DOBD 20 CS DG JSR DocCcs 
DOCO 4C IE CF JMP CFI1E 


a "BAM megváltozott" kapcsoló visszaállítása 


ID tárolása 
puffer-szám 


puffer mutató $242-on 


egy karakter betöltése a pufferból 
egységszám 


irásvédelem-kapcsoló 
olvasáshiba-kapcsoló 


szabad blokkok kiszámítása 
a $6D/26E utáni puffer-cím 
a 4-es pozíciótól kezdve 


sáxonkénti üres bblokkok számának hozzáadása 
X, mint Hi byte 


plusz 4 


18-as sáv? 

ha igen, kihagyni! 
utolsó sáv-szám? 
nem 

Lo byte 

Hi byte 

egységszám 

É2FC utáni Hi byte 
Lo byte 

F2ZFA után 


paraméter a lemezvezérlőn 
blokk olvasása 

ok? 

a byte betöltése a pufferból 
következő byte sávja 

a pufferból 

szektor 


sáv 


puffer váltás 

paraméter a lemezvezérlőn 
blokk olvasása 

puffer váltás 
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TETTE JET NE JE BE E IE ARE AE At AKARATA IE E AE 9E 9 JE 96 -9E 96 36 


DOC3 A9 80 LDA HAD 
DOCS5 DO 092 BNE " DOC? 
VETE AE IE IE ALA JE IE ÁE IE AE AE AE JE IE AA JE AE JE JE 996 96 9696 
DOC7 A? 99 LDA 490 
DOC9 BD 4D 02 STA — 024D 
DOCC 29 93 DF JSR — DF93 
DOCF AA TAX 

DODO 20 06 D5 JSR — D506 
DOD3  8A TXA 

DOD4 48 PHA 

DODS ga ASL A 
DOD6 AA TAX 

DOD7 A9 00 LDA  $HOOG 
DOD9 95 99 STA  99,X 
DODB 209 25 Di JSR  D125 
DODE C9 04 CMP  $4O4 
DOEG BO 06 BCS — DOE8 
DOE2 Fó B5 INC — B5,X 
DOE4 DO 02 BNE — DOE8 
DOE6 F6 BB INC  " BB,X 
DOES8 68 PLA 

DOE? AA TAX 

DOEA 60 RTS 

FENE RE NEEE IE ÁE E JEE JE 96 At 96 JE JE AE At AE JE AE At At 96 46-44 94-96 
DOEB A5 83 LDA 83 
DOED C9 13 CMP  4I3 
DOEF 99 02 BCC  DOF3 
DOF1 29 OF AND  $OF 
DOF3 C9? OF CMP  HOF 
DOF5 DO 02 BNE — DOF9 
DOF7 A? 10 LDA 4$19 
DOF9 RA TAX 

DoFA 38 SEC 

DOFB BD ZB 02 LDA OZ22B,X 
DOFE 350 06 BMI D106 
DI100 29 oF AND 4OF 
D19g2 685 82 sTA 82 
D104 AA TAX 

D1095 18 EG 

D106 60 RTS 

NEEE ÁE IEEE RE At AE 96 IE AE JE IE 96 At At 96 AE ALÁ AE AE AE At 46 9 
D107 A5 83 LDA 83 
D109 C9 13 CMP 413 
D1OB 99 02 BCC — DIOF 
DIgD 29 oF AND  $OF 
D1OF AA TAX 

D11g BD 2E 02 LDA OZZB,X 
D113 AB TAY 

D114 0A ASL A 
D115 909 0A BCC  D121 
D117 39 0A BMI D123 
D119 98 TYA 

D11A 29 OF AND  HOF 
HÍiG" 65 82 sra 82 
D11E AA TAX 

D11F 18 LE 

D129 60 RTS 

D121 30 F6 BMI D119 
D123 38 SEC 

D124 60 RTS 


blokk olvasása 
olvasás-kód 


blokk beírása 

írás-kód 

tárolása 

a puffer-szám beolvasása 


sáv/szektor betöltése, blokk olvasása, irása 
puffer mutató kétszer 


mutató a pufferben nullán 

a file-tipus beolvasása 

relativ file, vagy közvetlen elérés? 
igen 


a blokk-számláló növelése 


olvasás-csatorna megnyítása 
másodlagos cím 
1 


kisebb? 


16 


ok kapcsoló 


írás-csatorna megnyitása 
máodlagos cím 

19 

kisebb? 


csatorna-szám 


ok kapcsoló 


csatorna-kapcsoló foglalt 
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ANETTE Át AE At E 9E AE At At 96 AE A AE AE AE AE 9E AE 9 9EJE At At 


DF93 
A 


B2 


D12F 
0244 ,Y 
D151 
(99, Xx) 


99,Xx 
9244 ,v 
D14D 

HFF 
99,Xx 


99,Xx 


(99,Xx) 
99 ,X 


Díi25 A6ó 82 LDX 
D127 B5S EC LDA 
D129 4A LSR 
DI2A 29 07 AND 
DI2C C9 04 CMP 
DIZE 60 RTS 
TEÁT AAL FEJE JEE RE RE IE HEAT At JE JEE 9t-3E 96 -AE At 9€-9E-At Jé 
BIZT 29 95 DF JSR 
D152 0A ASL 
Di33 AA TAX 
D13534 A4 82 LDY 
D1536 60 RTS 
ART REÁ AE E AE AAN AE ÁE JE AE At AE 9E IEÁ JEE 969 At- 34 9E 
D137 20 2F Di JSR 
DI3A B? 44 02 LDA 
DI13D FO 12 BEO 
VI3rF Al99 LDA 
D141 48 PHA 
D142 B5 99 LDA 
D144 D9 44 02 CMP 
D147 DO 04 BNE 
D149 A? FF LDA 
$I48 95 99 STA 
DI4D 68 PLA 
D14E Fé 99 INC 
D159 60 RTS 
D151 Al 99 LDA 
BIS3 Fé 99 INC 
D1S5 60 RTS 
ELEDEL TE ÁE AE AE AE E EÁ JE AE 9E HE JE JEA JE JE At Ab 96 9E 9 96 
D156 . 20 57 Di JSR 
D1597 DO 36 BNE 
DIS8 85 85 STA 
DISD B9 44 02 LDA 
D160 FO 08 BEC 
D162 A? 80 LDA 
D164 99 F2 00 STA 
D1ó7 A5 85 LDA 
D169 . 60 RTS 
D16A 20 IE CF JSR 
DI16D A? 00 LDA 
D16F 209 CB D4 JSR 
D172 20 37 Di JSR 
D175 C9 00 CMP 
0177 "FO 19 BEG 
D177 85 980 STA 
DI17B 20 37 DI JSR 
Dí7E , 85 81 STA 
DI89 29 IE CF JSR 
Dí183 29 DS DI JSR 
Dí186 20 DO D6 JSR 
Dig9 209 CS DO JSR 
DI8C 20 1E CF JSR 
Dí18gF AS 85 LDA 
D191 60 RTS 
D192 209 37 DI JSR 
D195 A4 82 LDY 
D1977 99 44 02 sTA 
Dí9A A5 85 LDA 
D19C 60 RTS 


REL-file-tipus ellenőrzése 


"REL"? 


puffer- és csatorna-szám beolvasása 
puffer-szám beolvasása 


egy byte beolvasása a pufferból 
paffer- és csatorna-szám beolvasása 
végmutató 


byte beolvasása a pufferból 


puffer mutató 
azonos a végmutatóval? 
nem 


puffer mutató /1/ 
adatbyte 
puffer mutató növelése 


egy karakter betöltése a pufferból 
a puffer mutató növelése 


egy byte beolvasása, a következő blokk 
byte beolvasása a pufferból 


nem az utolsó karakter? 
adatbyte tárolása 
végmutató 

igen 


READ-kapcsoló 
adatbyte 


puffer váltás, következő blokk olvasása 


puffer mutató nullára állítása 
első byte a pufferból 
sáv-szám nulla? 
ha igen, az utolsó blokk 
sáv-szám tárolása 
utolsó byte, olvasása, tárolása 
láncolt szektoronként 
puffer váltás, következő blokk olvasása 
egységszám tárolása 
ter a lemezvezérlőn 
az olvasási utasítás átadása 
puffer váltás, a következő blokk olvasása 
adatbyte visszatöltése 


következő byte beolvasása 


tárolása végmutatóként 
adatbyte visszatöltése 
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HÁÁÁT ALLA A NEE E EKE JE RE HE AE EE 46 pufferban lévő byte és blokk felírása 


DI9D 29 Fi CF JSR CFF1 byte a pufferban 

DIAD FO OI BEO D1A3 megtelt a puffer? 

DI1A2 60 RTS 

D1AZ3 20 DI Di J8R — DiID3 egységszám beolvasása 

D1A6 206 IE FI JSR  FiIE szabad blokk keresése a BAM-ban 
D1A9 A? 00 LDA 400 

DIAB 209 CB D4 JSR — D4C8B puffer mutató nullán 

DIRE AS 80 LDA 80 

D1BO 209 Fi CF JSR  CFFI sáv-szám, mint első byte 

DIB3 A5 81 LDA 81 

D1B5 20 Fi CF JSR  CFFI szektor-szám, mint második byte 
DIB8 20 C7 DO JSR DOC7 blokk írása 

DIBB 209 IE CF I1SR CFIE puffer váltás 

DIBE 209 DO D6 JSR D6DO paraméter a lemezvezérlőn 

D1Ci A9 02 LDA  O2 

Dí1C3 4C CB D4 JMF — D4CB puffer mutató 2-n 

TERÉZ JEE JE NEE TEJE JEE At 9E E ÁE ÁE NE JE TETEJE JÉ HE AE HE a puffer mutató növelése 

DíCó 6853 6F S8TA eF 

DICB 29 EB D4 JSR — D4EB a puffer mutató beolvasása 
DICB 18 CLC 

DICC 65 6F ADC — 6F 

DICE 95 99 STA  99,X és növelése 

Dí1DO 85 94 STA 94 

DI1D2 60 RTS 

NEEE EE RENÉE AAL JE NE RE RE TE NE FEE JE NE 46-4E AE egységszám beolvasása 

DíiD3 20 93 DF J8SR DF93 puffer-szám beolvasása 

DI1D6ó6 AA TAX 

Dí1D7 BD 5B 02 LDA 025B,X 

DIDA 29 01 AND 401 egységszám leválasztása 

DIiDC 85 7F STA 7F és tárolása 

DIDE 60 RTS 

TEÁT ÁE ÁL At FEE ENE ÁL AE At 94 4E AE AE IE 3E-9E-4t 44-46 9646 az írás-csatorna és a puffer keresése 
DIDF 538 SEC írás-kapcsoló 

DI1Eg BO U0OI BCS DIES 

TEA E NE ÁE ÁT At TEL Át AE AE AE AE NEE 94 At AE JÉ E AE 96-Át db Ab az olvasó-csatorna és a puffer keresése 
DI1E2 18 [ert ej olvasás-kapocsoló 

DI1E3 08 PHPF tárolása 

DI1E4 685 6F STA eF pufferek szám 

DIE6 20 27 D2 JSR D227 csatorna lezárása 

DI1E9 20 7F D3 JSR  D37F szabad csatorna lefoglalása 
DIEC 685 82 STA 82 csatorna-szám 

DIEE A6 B3 LDX 83 másodlagos cím 

DIFO 28 PLP 

DIFi1 99 02 BCC — DIF5 olvasás-csatorna? 

Di1F3 099 80 ORA BB olvasás-kapcsoló 

DIFS5 9D 2B 02 STA  OZ2B,X beállítása 

DIíIFAa 29 3F AND 83F 

DIFA AB TAY 

DIFB A? FF LDA  WFF alapértelmezés 

DIFD 99 A7 00 STA 09047 ,Y 

D200 99 AE 009 STA  O0RE,Y beírása a hozzárendelési táblázatokba 
D203 99 CD 00 STA DOCD,Y 

D206 C6 6F DEC  6F a pufferek számának csökkentése 
D20O8 309 1C BMI D226 már kész? 

D20A 20 BE D2 JSR  D28E puffer keresése 

D2OD 10 08 BPL. D217 van? 

D20F 20 5A D2 J8R  D25A kapcsolók törlése a táblázatban 
D212 A9 70 LDA 47O 

D214 4C CB CI JMP  CICB 79, "no channel" 
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60 


990a7 ,Y 
GF 
D226 
D28E 
D2OF 
DORAE ,Y 


82 

A7,X 
WFF 

D26B 


WFF 
A7,X 


D2F3 
82 
AE,X 
WFF 
D27C 


HWFF 7? 
RE,£ 
; 


D2F3 
82 
CD,X 

HFF 
D28L 


WFF 
CD,X 


D2F5 


D217 99 A7 00 STA 
D21A C6 6F DEC 
D21C 509 08 BMI 
D21E 20 BE D2 JSR 
D221 50 EC BMI 
D223 99 AE 00 SsTA 
D226 60 RTS 
ÁE ÁE EE EAT AL 9E 36 E EE FEE EE EE AE 3E E AE 96 At 
D227 A5 83 LDA 
D229 C9 BF CMP 
D22B DO 01 BNE 
D22D 60 RTS 
D22E A6 83 LDX 
D2530 BD 2B 02 LDA 
D2ZSS E? FF CMP 
D235 FO 22 BEO 
0237 29 3F AND 
D259 685 82 STA 
DZSB A? FF LDA 
D23D 9D 2B 02 STA 
D240 A6 B2 LDX 
D242 A? 00 LDA 
D244 95 F2 STA 
D246 29 5A D2 JSR 
D249 A6 82 LDX 
D24B :" A? 01 LDA 
D24D CA DEX 
D24E 50 03 BMI 
D250  0A ASL 
D251 DO FA BNE 
D2SS OD 56 02 ORA 
D256 BD 56 02 STA 
D259 60 RTS 
AR ÁERRE TERET ÁE TERE TE EE EREJE E AE JE JEE 9E 3E AE AE 
D25A A6 82 LDX 
D25C. B5 A7 LDA 
D25E C9 FF CMP 
D260 FG 09 BEG 
D262 48 PHA 
D263. A? FF LDA 
D265 95 A7 sSTA 
D267 6A PLA 
D268 20 F3 D2 JSR 
D26B A6 82 LDX 
D26D B5 ARE LDA 
D26F C9 FF CMP 
D271 FO 06097 BEG 
D275 48 PHA 
D274 A9 FF LDA 
D276. 95 AE sSTA 
D278 68 PLA 
D279 20 F3 D2 JSR 
D27C A6 B2 LDX 
D27E B5 CD LDA 
, D2B8 CI FF CMP 
D282 FO 07 BEC 
D284 48 PHA 
D285 A? FF LDA 
Dp287 95 CD STA 
D2897 68 PLA 
D28BA 209 F3 D2 JSR 
D28D RTS 


puffer-szám a táblázatban 
pufferek száma 

már kész? 

még nem sikerült 
megtalálni? 

puffer-szám a táblázatban 


csatorna lezárása 
másodlagos cím 
15? 


nem 
egyébként kész 


csatorna-szám 
nincs hozzárendelve? 
ha nincs, kész 
csatorna-szám 


hozzárendelés törlése a táblázatban 


a RBEAD- és a WRITE-kapcsoló törlése 
puffer felszabadítása 
csatorna-szám 

2 bit beállítása 


léptetés a helyes pozícióra 


és a foglaltsági regiszter felszabadítása 


a puffer felszabadítása 
csatorna-szám 
puffer-szám 


nincs hozzárendelve? 
h 


a puffer-hozzárendelés törlése 


a puffer törlése a foglaltsági regiszterben 
csatorna-szám 


a második táblázatban van hozzárendelve? 
nem 
hozzárendelés törlése 


puffer törlése a foglaltsági regiszterben 
csatorna-szám 


1 


á harmadik táblázatban van hozzárendelve? 
nem 


hozzárendelés törlése 


puffer törlése a foglaltsági regiszterben 
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EREE EE E ÁE HERE DEE EE E AE AE 9 EE IE 9EÉ AE 9 AE AE 9 9 


D28E 
D28F 
D2909 
D292 
b295 
D297 
D298 
D298B 
D29D 
D2A0 
D2A1 
D2AS 
D2A5 
D2A7 
D2A9 
D2AB 
DZAE 
DZ2AF 
D2ZBO 
D2B1 
D2B3 
D2B6ó 
D2B7 
D2B8 
D2B9 


DZ2ZBA 
DZBC 
DZBF 
D2C2 
D2C4 
D2C5S 
D2C7 


D2C8 
D2CB 
D2CE 
D2D1 
D2D2 
D2D3 
D2DS 
D2D6 
D2D8 
D2D9? 


D2DA 
D2DC 
D2DE 
D2EO 
D2E1 
DZEZ2 
D2E4 
D2E5S 
D2E7 
D2E? 
D2ZEB 
D2ZED 
D2EE 
D2FO 
D2F2 
D2FS 
D2F5 
D2F6 
D2F7 
D2F9? 


978 
48 
Ap 
20 
10 
8g 
20 
10 
20 
AA 
30 
BS 
50 
AS 
95 
9D 
BA 
oA 
AB 
A? 
9? 
68 
AB 
BA 
60 


AZ 
B9 
3D 
Fo 
ca 
10 
60 


B97 
5D 
99 
8A 
B8B8 
30 
18 
69 
AA 
60 


A6G 
B5 
309 
BA 
18 
69 
AA 
B5 
10 
c? 
Fo 
48 
A? 
95 
68 
zp 
Ag 
CB 
A2 
6E 


01 
BA 
oc 


BA 
06 
39 


15 
00 
FC 
TF 
00 
5B 


02 
99 


07 
4F 
E? 
04 


F5 


4F 


€9 


4F 


os 


08 


82 
A7 
09 


07 
A7 
FO 
FF 
EC 


FF 
A7 


oF 


10 
50 


D2 


D2 


02 


02 
EF 


02 
EF 
02 


02 


TYA 
PHA 
LDY 
JSR 
BPL 
DEY 
JSR 
BPL 
JSR 
TAX 
BMI 
LDA 
BMI 
LDA 
STA 
STA 
TXA 
ASL 
TAY 
LDA 
sTA 
PLA 
TAY 
TXA 
RTS 


LDX 
LDA 
AND 
BEO 
DEX 
BPL 
RTS 


LDA 
EOR 
STA 
TXA 
DEY 
BMI 
CLC 
ADC 
TAX 
RTS 


LDX 
LDA 
BMI 
TXA 
CLC 
ADC 
TAX 
LDA 
BPL 
CMP 
BEO 
PHA 
LDA 
sSTA 
PLA 
AND 
TAY 
INY 
LDX 
ROR 


407 
024F ,Y 
EFE9,X 
D2C8 


DZ2BC 
024F ,Y 
EFE9,X 
024F ,Y 
D2D8 


408 


82 
A7,X 
D2E9 


407 
A7,X 
D2D9 

HFF 
D2ZD9 


4FF 
A7,X 


OF 


410 
0250 


puffer keresése 


bit törlése 


bit megfordítása 
puffer-szám 


puffer-szám 


puffer-szám 
16 
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$OE 
Bs 
D227 
8s 
DSOB 


$0E 
83 

az 
O22B,X 
HFF 
D334 
43 F 

82 
DF93 


925B,X 
491 

7F 

D334 

D227 

83 

D317 


6F 


400 
FA,Y 
A7,X 
D348 

HFF 
DSSE 


407 


A7,X 
D355 

HFF 
D3SE 


405 
DSSE 

HFF 
DS7A 
6F 

4SF 


09 ,x 
D563 
402 

D373 


D2FC 6E 4F 02 ROR 
D2FF 88 DEY 
DS09 DO 01 BNE 
D302 18 CLC 
DS03 CA DEX 
DS304 10 FS BPL 
D306 60 RTS 
EREJÉRE ÁE TEJE TE RE NEEE RE TE E ÁE ÁE AE AIA AE AE AE 96 AE AE AE 
D397 A? GE LDA 
D3097 85 85 STA 
DSOB 20 27 DZ2 JSR 
DS0E C6 85 DEC 
DS10 DO F9 BNE 
DS12 60 RTS 
FENE AE ÁE ÁE ÁL TERE E AE ALA EA AT9E JE 9436 9E AE AE 96 9 dé 9E 
DS13 A? 0E LDA 
DpS15 85 85 STA 
DS17 Aa B3 LDX 
DS19 BD 2E 02 LDA 
DSIC C9 FF CMP 
DSIE FO 14 BEG 
DS20 29 3F AND 
DS22 85 82 STA 
DS24 20 93 DF JSR 
DS27 AA TAX 
DS28 BD 5B 02 LDA 
DSZB 29 01 AND 
DSZD CS 7F CMP 
DS2ZF DO 03 BNE 
h$51. 28 27 D2 JSR 
D334 C6 83 DEC 
D336 109 DF BPL 
DS38 60 RTS 
FETT BETÉR ÁE E TERE AE E EAT AE At JEE AE AAL E E A 
D339 AS 6F LDA 
DSSB 49 FPHA 
DSS3C AOg 00 LDY 
DSZSE B6 FA LDX 
DS40 B5S A7 LDA 
D342 10 04 BPL 
DS44 C9 FF CMP 
DS46 DO 16 BNE 
D348 8A TXA 
DS49 18 CLC 
DS4A 69 07 ADC 
DS4C AA TAX 
DS34D B5 A7 LDA 
DS4F 10 04 EPL 
DSS51 C9 FF CMP 
DSS3 DO 09 BNE 
Dp$S55  C8 INY 
DS56 CO 05 CPY 
DSS8 99 E4 BCC 
DSSA AZ FF LDX 
DSSC DO IC BNE 
DSSE 86 6F STX 
D360 29 3F AND 
D562 AA TAX 
D363 B5 00 LDA 
D365 30 FC BMI 
D367 C9 02 CMP 
D3697 99 08 BCC 
DS6B A6 6F LDX 


6F 


16-bit, foglaltsági regiszter állásának táro- 
lása £ 


puffer-bit törlése 


összes csatorna lezárása 
14 

másodlagos cím 

csatorna lezárása 
következő másodlagos cím 


a többi egység összes csatornájának lezárása 


14 
másodlagos cím 


hozzárendelési táblázat 
hozzá van rendelve a csatorna? 
nincs 


csatorna-szám 
puffer-szám betöltése 


egységszám 

leválasztása 

azonos az aktuális egységszámmal? 
nem 

csatorna lezárása 

következő csatorna 
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400 

h0o1 
0256 
D391 


A 

D585 
470 

CiC8B 


WFF 
0256 
0256 


DOEB 
C100 
D3AA 
82 
023E,X 


82 
D125 
D3SB4á4 . 


." E129 


83 
4OF 
D414 
F2,X 
408 
D3D3 
D125 
407 
D3CE 
189 
F2,X 
D3DE 


400 
F2,X 


83 
D409 
D125 
404 
D490 
D12F 
99,Xx 
0244 ,9y 


D36D" ED 07 CPX 
D36F 90 D7 BCC 
D371 BO E2 BCS 
D373 A4 6F LDY 
D375  A9 FF LDA 
D377 99 A7 00 STA 
D37A 68 PLA 
D37B 85 6F STA 
D37D. 8A TXA 
D37E 60 RTS 
RERERÁIEAAKA AAA REÁ EE JER K E REAL 
D37F Ag 00 LDY 
D381 A? 01 LDA 
D383 2C 56 02 BIT 
D386 DO 09 BNE 
D388 CB INY 
D389  0A ASL 
D38BA DO F7 BNE 
D3BC A? 70 LDA 
D38BE 4C C8 CI JMP 
D391 49 FF EOR 
D393 2D 56 02 AND 
D396 BD 56 02 STA 
D399 98 TYA. 
D39A 60 RTS 
VALT ÁE EE IEEE IE A AE AE EE IEEE 9696 96-96-99 
D39B 20 EB DO JSR 
D39E 20 00 Ci .JSR 
D3A1 209 AA D3 JSR 
D3A4 A6 B2 LDX 
D3A6 BD 3E 02 LDA 
D3A9 60 RTS 
D3AA A6 82 LDX 
D3AC 20 25 Di JSR 
D3AF DO 03 BNE 
D3B1 4C 209 E1 JMP 
D3B4 A5 83 LDA 
D3B6 C9 OF CMP 
D3BB FO S5A BEG 
D3BA B5 F2 LDA 
D3BC 29 08 AND 
D3BE DO 13 BNE 
D3Co 29 25 Di JSR 
D3C3 C9 07 CMP 
D3C5 DO 07 BNE 
D3C7 A9 89 LDA 
D3C9 95 F2 SETA 
D3CB 4C DE D3 IJMP 
ha 
D3CE A? 00 LDA 
D3DO 95 F2 SSTA 
D3D2 60 .RTS 
DID3 A5 83 LDA 
D3D5 Fo 32 BEG 
D3D7 20 25 Di JSR 
D3DA C9 04 CMP 
D3DC 99 22 BCC 
D3DE 20 2F Di JSR 
D3Ei bB5 99 LDA 
D3E3 D9 44 02 CMP 
D3Eó DO 04 BNE 


DSEC 


csatorna keresése és lefoglalása 
a B. bit beállítása 
szabad a csatorna? 


bit balra léptetése 
megtörtént az összes csatorna ellenőrzése? 


76, "no channel" 


bitminta megfordítása 
bit törlése 
csatorna lefoglalása 


a byte betöltése kiíráshoz 
olvasás-csatorna megnyitása 

LED bekapcsolása. 

byte betöltése az output-regiszterbe 
csatorna-szám 

egy byte betöltése 


csatorna-szám 

file-tipus ellenőrzése 

nem relativ file? 

byte betöltése a relativ file-ból 


másodlagos cím 
15 
igen, hibacsatorna leolvasása 


be van állítva a vég-kapcsoló? 

nincs 

file-tipus ellenőrzése 

közvetlen elérésű file? 

nem 

a READ- és WRITE-kapcsoló beállítása 


a READ- és WRITE-kapcsoló törlése 


másodlagos cím 

nulla, I14WAD? 

a file-tipus ellenőrzése 

relatív file vagy közvetlen elérés? 


nem 
puffer- és csatorna-szám betöltése 
puffer mutató 

azonos a vég-mutatóval? 

nem . 
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D3E8B A? BO LDA 400 


DS3EA 95 99 STA 99,Xx puffer mutató nullán 

D3EC F6 99 INC 99,Xx a puffer mutató növelése 

DJEE Al 99 LDA (99,X) egy byte beolvasása a pufferból 
D3FO 99 3E 02 STA  OZZ3EJY az output regiszterbe 

D3F3 B5 99 LDA  99,X puffer mutat 

D3FS D9 44 02 CMP — 0244,Y azonos a vég-mutatóval? 

DSF8 DO 05 BNE — DZ3FF nem 

DSFA A9 Bi LDA 81 

DSFC 99 F2 00 STA  BOF2,Y a kapcsolók beállítása 

D3FF 60 RTS 

D4009 20 56 Di JSR D156 egy byte beolvasása a pufferból 
D403 A6 82 LDX 82 csatorna-szám 

D405 9D Z3E 02 STA O23E,X byte az output-regiszterben 
D4AO8B 60 RTS 

D409 AD 54 02 LDA 0254 tartalomjegyzék? 

D4AOC FO F2 BEG D400 nem 

D40E 20 67 ED JSR ED67 a tartalomjegyzék sor előállítása 
D411 4C 03 D4 JMP D405 

D414 20 EB D4 JSR — D4E8B a puffer mutató beállítása 

D417 C9 D4 CMP  $DA4 a puffer előtt hibaüzenetre utal? 
D419 DO 18 BNE D435 nem 

D41B AS 95 LDA 95 

D41D C9 02 CMP 22 

D41F DO 12 BENE D435 

D421 A9 OD LDA HOD CR 

D423 85 85 STA 85 output-regiszterben 

D4A25 209 23 CI JSR Ci253 a hibakapcsolók törlése 

D428 A? 00 LDA HOD 

D42A 20 CI B6 JSR — E6CI az "UK" üzenet előállítása 

DA2D C6 AS DEC A5 a puffer mutató visszaállítása 
DA2F A? 80 LDA HBOD a RsAD-kapcsoló beállítása 

D431 DO 12 BNE D445 

D433 29 37 Di 1SR D157 a byte beolvasása a pufferból 
D436 85 85 STA 85 az output-regiszterbe 

D438 DO 09 BNE D443 

D43A A? D4 LDA HD4 

D43C 29 CB D4 JSR — D4CB a hiba előtti puffer mutató beállítása 
D43F A? 02 LDA $HO2 

D441 95 9A STA  9A,X cím /Hi/ 

D443 A? 88 LDA 488 a RSAD-kapcsoló beállítása 

D445 85 F7 STA F7 

D447 A5 85 LDA 85 adatbyte beolvasása 

D449 6GD 43 02 STA 0245 az output regiszterbe 

D44C 60 RTS 

MENETE TELE ÁE ÁE ERRE ÁL REE RE RE EE JE 4646 AE következő blokk olvasása 

D44D 20 93 DF JSR DF93 puffer-szám beolvasása 

D450  0a ASL A kétszer 

D451 AA TAX 

D452 A? 00 LDA 400 

D454 95 99 STA 99,Xx puffer mutató nullán 

D456 Al 99 LDA (99,X) első byte beolvasása a pufferból 
D458 FO 05 BEG — D45F nem folytatóblokk? 

D4SA D6 99 DEC v 89 XX puffer mutató 1-en 

D45C 4C 56 Di JMP — D156 következő blokk olvasása 

D4SF 60 RTS 

TAEETEÁEÉ TE E JE RE TE9E AE 96 3E EE EHE 9E JEE EE TE JEE AE egy blokk olvasása 

D460 A? 80 LDA HAD olvasás-utasításkód 

D462 DO 02 BNE — D466 
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TETEJE TEJE JEE ÁE ÁE ÁE E TE 3E E AE AE TE 94AE HE JEE JE 96-46-96 96-AE egy blokk irása 


D464 A9 90 LDA 499 irás-utasításkód 

D466 05 7F ORA 7F egységszám 

D468 BD 4D 02 sTA 024D a kód tárolása 

D46B AS F9 LDA  F9 

D46D 209 D3 D6 JSR D6óD3 paraméter a lemezvezérlőn 
D470 AG F9 LDX F9 

D472 4C 93 D5 JMP — D593 utasítás végrehajtása 

FEE KERETE ÁE ÁE ÁE BE JE ÁE AE TE IEEE TEJE NE JE IE 94-E-9E 46 9t puffer lefoglalása és a blokk olvasása 
D475 A9 01 LDA OI 

D477 8D 4A 02 STA 024A soros adatfeldolgozás 

D47A A? 11 LDA €$11 a ky 

D47C 85 83 STA sz másodlagos cím 

D4A7E 209 46 DC IJSR DC46 puffer lefoglalása és a blokk olvasása 
D481 A? 02 LDA HOZ 

D483 4C CB D4 IJMP D4C8 puffer mutató 2-n 

ERTE ÁE TE TEREJE JE BE AE EE TE EE JE 9E BE EHE JE 3E JE HÉ E At új blokk létrehozása 

D4986 A9 12 LDA tií2 18 

D488 85 83 STA az másodlagos cím 

D4ABA A4C DA DC JMP DCDA új blokk létesítése 

FERJE ÁE JEE AE AE JE JE TE TERE TE FEJE JE EE AE JE JEE At 96 At tartalomjegyzék-blokk irása 
D4A8D 20 3E DE IJSR DESB a sáv- és szektor-szám beolvasása 
D499  A9 01 LDA Oi 

D492 85 6F STA — 6F egy blokk 

D494 A5 49 LDA 69 blokk-foglalásnál lépéstávolság tárolása /14/ 
D496 48 PHA 

D497 Ag 03 LDA HOZ tartalomjegyzéknél 3! 

D499 685 69 STA 69 

D4A9B 209 2D Fi JSR F12D egy szabad blokk megkeresése a BAM-ban 
D49gE 68 FLA 

D4A9F 85 69 STA 69 lépéstávolság visszatöltése 
D4A1 AJ 00 LDA  4O0 

D4A3 29 CB D4 JSR D4C8 puffer mutató nullán 

D4A6 A5 80 LDA 80 

D4AB 209 Fi! CF JSR CFF1 a sáv-szám a pufferban 

D4AB A5 81 LDA 81 

DAAD 209 Fi CF JSR CFF1 a szektor-szám a pufferban 
D4BOo 29 C7 DO JSR DOC7 a blokk felírása a lemezre 
D4B3 209 99 D5 JSR — D599 és ellenőrzése 

D4B6 A? 00 LDA 400 

D4BB 29 CB D4 JSR — D4C8 puffer mutató nullán 

D4ABB 20 Fi CF JSR CFF1 puffer kitöltése nullákkal 
D4BE DO FB BNE  — D4BB 

D4ACO 20 Fi CF JSR CFF1 nulla, mint láncolt sáv 
D4C3 Ag FF LDA  $FF 

D4CS5S 4€ Fi CF JMP — CFFI É$FF, mint a byte-ok száma 
FEJERE KKE BEEE TERE RE EE EE JE JE 9 AE JÉ IE AE puffer mutató beállítása 
DACB 85 6F STA eF a mutató tárolása 

D4ACA 20 93 DF JSR DF93 puffer-szám betöltése 

D4ACD  O0A ASL A kétszer 

D4CE AA TAX 

D4CF  B5 9A LDA — 9A,X puffer mutató /Hi/ 7 

D4D1 85 95 sra 95 

D4D3 A5 6F LDA — 6F 

D4DS 95 99 sTA  99,X puffer mutató, új érték /Lo/ 
D4D7 685 94 sra 94 

D4D9 60 RTS 

NEJEJE RE TEJE ÁE E JE AE AE EE JE AE TE TE E TE EFE ÁE JE EHE AE AE a belső csatorna lezárása 
DADA A? 11 LDA 411 tr / 

D4DC 65 83 sra 83 

D4ADE 209 27 D2 JSR D227 a csatorna lezárása 

D4E1 A? 12 LDA 112 18 

D4E3 85 83 sTaA 83 

ÚD4ES 4c 27 D2 JMP D227 a csatorna lezárása 
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HERE TE E ETTE JE EE JE ME AE A JE IEEE E IE 96 1696 16 


DAEB 209 93 DF JISR — DF93 
D4EB 0A A8SL A 
D4EC AA TAX 

D4ED B5 9A LDA — 9A,X 
DAEF 85 95 STA 95 
D4F1 BS 99 LDA  99,X 
D4F3 85 94 STA 94 
D4F5 60 RTS s 

HERE TERE JE NE 3 HE JE AA IE IE AE AE JE JE IEEE IE AE 9t dt 96 9E-9E 
D4Fó 85 71 STA 71 
D4AFB 29 93 DF JSR — DF93 
D4FB AA TAX 

D4FC BD Eg FE LDA — FEEG,X 
D4FF 85 72 sSTA 72 
DS01 AD 00 LDY 400 
D503 Bi 71 LDA (719,Y 
DS505 60 RTS 

VERE RE ARE ALÁ A AE AE HE IE AL ÁE ALT 96 at at AE 9E 96 96-96 9E 
D506 BD 5B 02 LDA — 025B,X 
D509 29 01 AND 401 
D5OB OD 4D 02 ORA — 024D 
DS0E 48 .PHA 

DSOF 86 F9 STX  F9 
D511 BA TXA 

D512  0A AGL.: Ár 
D513 AA TAX 

D514" B5 07 LDA. 07,X 
D516 BD 4D 02 STA — 924D 
D519. B5 06 "LDA .06,X 
DSI1B FO 2D BEG — D54A 
D5ID CD D7 FE CMP — FED7 
DS20 BO 28 BCS- D54A 
DS22. AA TAX 

D523 68 PLA 

DS24 46 PHA 

DS25 29 FO AND  4FOD 
DS27 C9 908 CMP. 490 
D529 DO 4F BNE — DS7A 
DSZB 68 PLA 

DSZC 48 PHA 

DSZD 4A LSR A 
DSZE B8 05 BCS — DSZ35 
D539 AD 01 01 LDA — 0101 
DS33 99 03 BCC — 0538 
D5S35 AD 02 01 LDA 9102 
DSZ8 FO 05 BERG DSZF, 
DSZA CD D5 FE CMP — FED5 
DSZD DO 33 BNE — D572 
DS3F BA TXA 

DS49 20 4B F2 JSR — F24B 
D543 CD 4D 02 CMP — 024D 
DS546 FO 02 BERG — D54A 
D548 BO 30 BCS — D57A 
DS4A 20 52 D5 JSR — D552 
DS4D AJ 66 LDA 466 
DS4F 4C 45 E6 JMP — E645 
RTETE TETEJE TE IE AE AE HE JE EE JE AE AE AE 9E JE IEEE IE 96-96 9E IE 
DSSZ A5 F9 LDA  F9 
D554  9A ASL A 
DSS5. AA TAX 

D556 B5 06 LDA — 06,X 
DS58 85 80 sTA 80 : 
DSSA B5 07 LDA — 07,X. 
DS5SC 685 81 sTA 81 
DSSE 60 RTS 


puffer mutató beállítása 
a puffer-szám betöltése 


puffer mutató /Hi/ 
puffer mutató /Lo/ 


a byte betöltése a pufferból 


mutató /Lo/ 
a puffer-szám betöltése 


puffercím /Hi/ 
mutató /Hi/ : 


egy byte betöltése a pufferból 


sáv- és szektor-szám ellenőrzése 
lemezvezérlő utasításkód ja 
egységszám 

plusz utasításkód 

tárolása 

puffer-szám 


kétszer 


szektor 
tárolása 


66, "illegal track or seectorf. 
36, legmegasabb sáv-szám 4 1 
66, "illegal track or sector". 


utasításkód 


irás-kód? 
nem 


"A" , formátum- jelölés 

73, "cbm dos v2.6 1541" 

sáv-szám 

maximális szektor-szám beolvasása 

és összehasonlítása a szektor-számmal 
ha egyenlő: hiba 

kisebb? 

sáv- és szektor-szám beolvasása 


66, "illegal track or sector" 


sáv- és szektor-szám sJeolvasása 
puffer-szám 
42 


indexként 
sáv 


szektor 
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DS5F A5 80 LDA 89 sáv 
DS561 FO EA BEA D54D ha nulla, akkor hiba 
D563 CD D7 FE CMP FED7 36, maximális sáv-szám 4 1 
D566ó6 BOES BCS D54D 66, "illegal track or sector" 
DS568 209 4B F2 JSR F24B maximális szektor-szám betöltése 
DS5S6B C5 81 CMP 81 szektor 
DS56D FOG DE BERN — D54D 
DS56F 90 DC BECC — DS54D hiba 
D571 60 RTS 
D572 209 52 D5 JSR DS552 sáv- és szektor-szám betöltése 
D575 A? 73 LDA 473 
D577 4C 45 E6 JMP E645 73, "cbm dos v2.6 1541" 
D57A A6 F9 LDX F9 puffer-szám 
D57C 68 PLA 
DS57D 8D 4D 02 STA — 0924D lemezvezérlő utasításkód ja 
D580 95 00 STA 09, Xx az utasítás-regiszterben 
DS82 9D 5B 02 STA — 025B,X utasításkód beírása a táblázatba 
D585 60 RTS 
ÁÁÁÁ E TERELTE E TERE E TE ARE AE E RE EE AE 9E E JE AE 9 blokk olvasása 
DS586 A? 80 LDA 480 olvasáskód 
D588 DO 02 BNE — D58C 
ká ááá áásásásásáásásáső ösésásösésásűsásásösösösi blokk irása 
DSBA A? 90 LDA 490 íráskód 
DS8C 05 7F ORA  7F egységszám 
DS8E A6 F9 LDX F9 puffer-szám 
D599 8D 4D 02 STA — 024D 
D593 AD 4D 02 LDA 924D utasításkód 
D596 20 BE D5 JSR D5BE sáv és szektor ellenőrzése 
EALER JE ERRE EREJE 3E EJ IEEE HE 96 3494 dé db 46 a végrehajtás ellenőrzése 
D599 20 AG D5 JSR — D5A6 a végrehajtás ellenőrzése 
DS9C BO FB BCS — D599 
DS9E 48 PHA vissza jelzés-kód 
DS9F A9 00 LDA HOG 
DSA1 B68D 98 02 STA 0298 a hiba-kapcsoló törlése 
DSA4 68 PLA 
DSA5 60 RTS 
az utasításkód /7-es bit/ még a 
DSA6 BS5 00 LDA 04d,Xx regiszterben van? 
DSAB 30 1A BMI DS5C4 igen, ha a 
DSAA C9 02 CMP 402 visszajelzés kisebb 2-nél 
DSAC 90 14 BCC DSC2 hibás végrehajtás 
DSAE C9 08 CMP 498 ha 8, 
DSBO FO 08 BEO — DSBA Write Protect /írásvédelem/ 
DSB2 C9 OB CMP  HOB ha 11, 
DSB4 FO 04 BEG — DS5BA ID mismatch 
DSB6 C9 OF CMP  $OF 15 
D5B8 DO 0C BNE — DSC6 
DSBA 2C 98 02 BIT — 9298 
DSBD 30 03 BMI DS5C2 
DSBF 4C 3F D6 JMP D63F a hibaüzenet előállítása 
DSC2 18 CLC a végrehajtás befejeződik 
DSC3 60 RTS 
D5C4 538 SEC a végrehajtás még nem fejeződik be 
DSCS 60 RTS 
DSC6 98 TYaA 
D5SC7 48 PHA 
DSC8 A5 7F LDA  7F egység szám 
DSCA 48 PHA 
DSCB BD 5B 02 LDA — 025B,X 
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DSCE 29 01 AND OI egységszám 


D5SDO 85 7F STA 7F 

DSD2 AB TAY 

DSD3 B9 CA FE LDA  FECA,Y az egység bit-mintája 

DSD6 BD 6D 02 STA — 026D 

D5D9 20 A6 D6 I1SR D6A6 olvasási kisérlet 

DSDC C9 02 CMP HOZ visszajelzés 

DSDE BO 03 BCS  DSE3 nem ok? 

DSEg  4C 6D D6 JMP — D66D kész 

DS5E3 BD 5B 02 LDA — O25B,X utasításkód 

DSE6 29 FO AND  $FO leválasztása 

DS5EB 48 PHA 

DSE9 C? 90 CMF. $49D íráskód 

DSEB DO 07 BNE — D5F4 nem 

DSED AS 7F LDA  7F egységszám 

D5SEF 09 B8 ORA  $B8B 

DSFi 9D 5B 02 STA  0O25B,X 

DSF4 24 6A BIT 6 

DSF6 70 39 BVS — D631 

DSFB  A9 00 LDA  4OD 

DSFA BD 99 02 STA 0299 keresés-számláló a sáv mellett 
DSFD BD 9A 02 STA — 029A 

D609 AC 99 02 LDY 0299 számláló 

D603 AD 9A 02 LDA — 029A 

D6096 38 SEC 

D607 F9 DB FE SBC FEDB,Y olvasási kisérlet állandói a sáv mellett 
D6WA BD 9A 02 sSTA — 029A 

D6OD B9 DB FE LDA — FEDB,Y 

D610 20 76 D6 JSR D676 mágnesfej poziciónálása a sáv mellé 
D613 EE 99 02 INC 0299 számláló növelése 

D616 20 A6 D6 ISR D6A6 olvasási kisérlet 

D619 C9 02 CMP 402 visszajelzés 

D61B 99 08 BCC D625 2-nél kisebb, ok? 

D61D AC 99 02 LDY 0299 számláló betöltése 

D620 B9 DB FE LDA — FEDB,Y az állandók beolvasása 

D623 DO DB BENE — D600 még nem nulla /táblázat vége/? 
D625 AD 9A 02 LDA — 029A 

DO28B 20 76 D6 JSR D676 mágnesfej pozicionálása 

D62E BS5S 00 LDA  009,X 

D62D C9 02 CMF 402 visszajelzés 

DO2ZF 99 2B BCC — D65C ok? 

D631 24 6A BIT  6A 

D633 10 OF BPL — D644 

0635 68 PLA utasításkód 

D636 C9? 90 CMP 490 íráshoz? 

Dé38 DO 05 BNE — D63F nem 

DSZA 05 7F ORA 7F egységszám 

D63C 9D 5B 02 STA  025B,X utasításkód a táblázatban 
D63F  B5 00 LDA — 009,X visszajelzés 

D641 20 BA E6 IJSR E60gA a hibaüzenet beállítása 

D644 68 PLA 

D645 2C 98 02 BIT — 0298 

D648 30 23 BMI D66D 

D64A 48 FHA 

D64BR A? CO LDA HCO fejpozicionálás utasításkód ja 
D64D 05 7F ORA 7F egységszáam 

D64F 95 00 STA  00,X az utasítás-regiszterben 
D651 B5 B0 LDA  00,X 

Dó53 30 FC BMI D651 végrehajtás /futtatás/ megvárása 
D655 20 A6 D6 ISR D6A6 végrehajtást mégegyszer megkisérelni! 
D658: C9 02 CMP 402 vissza jelzés 

DóSA BOD D9 BCS — D6ó35 hibás? 

D6SC 68 PLA 

D65D C?9 909 CMP 49 írás-utasításkód 

D6SF DO 0C BNE — D6óóD nem 

D6ó61 05 7F ORA er egységszám 
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D663 9D SB 02 STA 025B,X a táblázatban 


D666 20 A6 D6 JSR — D6A6G utasítás végrehajtását mégegyszer megismételni! 
D669 C9 02 CMP  4HO2 vissza jelzés 

D66B BOB D2 BCS D63F hiba? 

D6ó6GD 68 PLA 

D66E 85 7F STA  7F az egységszám visszatöltése 

D670. 68 PLA 

D671 AB TAY 

D672 B5 00 LDA  009,X hibakód 

D674 18 CLE a végrehajtási kapcsoló vége 

D675 60 RTS 

D676 C9 00 CMP. 400 

D678 FO 18 BERG D692 

D67A 30 0C BMI D688 

D67C Ag 01 LDY  $O1l 

D67E 20 93 D6 JSR — D693 mágnesfej pozicionáláshoz szükséges adatok 
D681 38 SEC ; átadása 

D682 E9 01 SBC. 401 

D68B4 DO F6 BNE D67C 

D6B6 FO 0A BEG D692 

D688 AB FF LDY  $FF ; 

DOBA 20 93 D6 JSR — D693 mágnesfej pozicionáláshoz szükséges adatok 
D68D. 18 ÖLC óva átadása : 

D68E 69 01 ADC 401 7 ; A gt 

D699 DO F6 BNE D688 " j 4. E k ! 

D692 60 RTS je ; 

D693 48 PHA 

D694 . 98 TYA fa ja. 6 : 

D695 A4 7F LDY. . 7F egyeégszám 

D697 99 FE 22 STA O2ZFE,Y z : 

D69A D9 FE 02 CMP — OZFE,Y várakozás a lemezvezérlő vissza jelzésére 
D69D FD FB BEL DOgA ; 

D69F A? 00 LDA 409 

D6A1 99 FE 02 STA O2FE,Y 

D6A4 68 PLA a 

D6A5 60 RTS 

D6AG6 AS 6A LDA 6A ismétlések maximális száma 

D6GAB 29 3F AND $3F 

DORA AB TAY § 
DOAB AD 6D 02 LDA — 026D LED-bit 

DORAE A4D 09 1C EOR 1C00 

D6B1 BD 09 1C STA 1C00 LED kikapcsolása 

D6B4 BD 5B 02 LDA 025B,X utasítás átadása ! 

D6B7 95 00 STA  00,X a lemezvezérlőhöz 

D6B9 B5 009 LDA  00,X várakozás a visszajelzésre 

D6BB 30 FC BMI . D6B9, 

D6BD C9 02 CMP 402 ok? 

D6BF 909 03 BCC — D6C4 igen 

D6CIiI 88 DEY számláló csökkentése 

D6C2 DOB E7 BNE — D6AB új kisérlet 

D6C4 48 PHA , 

D6CS5 AD 6D 02 LDA — 026D 

D6C8 OD 99 1C ORA — 1C00 LED KI 

D6CB BD 09 1C sTA 1C00 ; 
D6CE 68 PLA 

DOCF 60 RTS 

ARE EE ENEK BEEE JE NEHEZE TEJE AE TE paraméter átadása a lemezvezérlőnek 
DODO 29 93 DF JSR DF93 a puffer-szám betöltése 

D6D3  0A ASL A 

D6óD4 AB TAY 

D6óDS A5 80 LDA 80 sáv-szám 

D6D7 99 06 00 STA — 0006,Y átadása 

DODA AS 81 LDA .81 szektor-szám 
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D6óDC 99 07 00 SsTA 90907 ,Y átadása 


DóDF A5 7F LDA 7F egységszám 
D6E1 0A ASL A 2-szer 
D6E2 AA TAX , X után 
D6E3 60 RTS 
RÁN REÁ LEE AE JE 96 dE NEJE JEE TE EREJE 9636 E JE AE E a file bejegyzése a tartalomjegyzékbe 
" D6B6E4 A5 83 LDA 83 , másodlagos cím 
D6E6 48 PHA 
D6E7 A5 82 LDA 82 csatorna-szám 
D6E? 48 PHA Á : 
D6EA A5 81 LDA 81 li szektor-szám 
D6EC 48 PHA 
D6ED  A5 BO LDA 80 sáv-szám 
D6EF 48 PHA tárolása 
D6FO. A? 11 LDA $IV 
D6F2 85 83 sra 83 17 másodlagos cím 
DóF4 20 3B DE JSR DE3B sáv- és szektor-szám betöltése 
D6F7 AD 4A 02 LDA — 924A file-tipus 
DOFA 48 , PHA tárolása 
DFB A5 E2 LDA  EZ2 egységszám 
D6FD 29 01 AND 401 
DőFF 85 7F STA  7F beállítása 
D701 A6 F9 KGNÉ 52) eSRő 2 puffer-szám 
D703 5D 5B 02 EOR — 025B,X 
D706  4A LSR A 
D707 90 OC . BCC D715 azonos egységszám? 
D709 AZ 01 LDX  $Oi 
D7OB 8E 92 02 STX 0292 mutató a tartalomjegyzékben 
D70E 20 AC C5 JSR  CSAC a tartalomjegyzék betöltése 
D711 FO 1D BERG — D730 első bejegyzés 
D713 DO 28 BNE — D73D megvan? 
D715 AD 91 02 LDA 0291 szektor-szám a tartalomjegyzékben 
D718 FO OC BEOG  D726 nullával egyenlő 
D71A CS 81 CMP 81 azonos szektor-számok? 
D71C FO IF BEG — D73D igen . 
D71E 685 81 STA 81 a szektor-szám tárolása 
D720 20 60 D4 JSR — D460 blokk olvasása 
p723 4C 3D D7 JMP  D73D 
Db726 A9 01 LDA 401 
D728 BD 92 02 sTA 0292 a mutató 1-en 
D72B 20 17 C6 JSR — C6í7 következő bejegyzés 
D72E DO OD BNE — D73D megvan? 
D730 20 BD D4 JSR — D48D tartalomjegyzék-blokk írása 
D733 AS BI LDA 81 szektor-szám ; 
D735 BD 91 02 STA . 0291 
D738 A9 02 LDA HOZ 
D73A BD 92 02 STA 0292 mutató 2 
D73D AD 92 02 LDA 0292 8 
D740 20 CB D4" JSR — D4CB a puffer mittató beállítása 
D743 68 PLA jz 
D744 BD 4A 02 STA 024A file-tipus : 
D747. " C9 04 :  CMP HO4 relatív file? : 
D749 . DO 02 f BNE — D74D nem f 
D74B 09 80 ORA BO a 7-es bit beállítása 
D74D 20 Fi CF JSR .CFFi és beírása a pufférbe e 
D750. 68 PLA r 3 
D751 BD 80 02 STA 0280 láncolt sáv 
D754 20 Fi CF JSR CFF1 a pufferben fi 
D757 68 PLA ? 
D75A ED 85 02 STA: . 0285 "láncolt szektor" 
D7SR 20 Fi CF JSR. CFFI a pufferben kó 
D7SE 29 93 DF JSR — DF93 a puffer-szám betöltése 
D761 AB TAY j 
D762 AD 7A 02- LDA 027A mutató az egységszámra 
, D765 AA TAX 
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D766 A9 10 LDA 
D768 20 6E C6 JSR 
D76B AO 10 LDY 
D76D A? 00 LDA 
D46F 91 94 STA 
D771- €8 INY 
D772 CO 1B ÉPY 
D774 90 F9 BCC 
D776 AD 4A 02 LDA 
D779 C9 04 CMP 
D77B DO 15 BNE 
D77D AOg 10 LDY 
D77F AD 59 02 LDA 
D782 91 94 STA 
D784 CB INY 
D785 AD 5A 02 LDA 
D788 9i 94 STA 
D78A CB INY 
D78B AD 58 02 LDA 
D78E 91 94 sSTA 
D799 20 64 D4 JSR 
D793 68 PLA 
D794 85 82 sTA 
D796 AA TAX 
D797 68 PLA 
D798 85 85 STA 
D79A AD 91 02 LDA 
D79D §5 D8 STA 
D79F 9D 60 02 STA 
D7AZ2 AD 92 02 LDA 
D7AS 85 DD STA 
D7A7 9D 66 02 sTA 
D7AA AD 43A 02 LDA 
D7AD 685 E7 STA 
D7AF AS 7F LDA 
D7B1 685 E2 STA 
D7B3 60 RTS 
FERT E TER ÁE TERE AE ATÁT ÁL At 96 AE HE JE E 46 4É 96 946 HÉ 
D7B4 AS 85 LDA 
D7Bó6 BD 4C 02 STA 
D7B9 20 B3 C2 JSR 
D7BC BE 2A 02 STX 
D7BF AE 00 02 LDX 
D7C2 AD 4C 02 LDA 
D7CS DO 2C BNE 
D7C7 Ego 2A CPX 
D7C9 DO 28 BNE 
D7CB AS 7E LDA 
D7CD FO 4D BEC 
D7CF 85 80 sTA 
D7D1 AD 6E 02 LDA 
D7D4 85 7F sTA 
D7D6 §8§5 EZ2 sTA 
D7DB A? 02 LDA 
D7DA §5 E7 sTaA 
D7DC AD 6F 02 LDA 
D7DF §5 81 STA 
D7E1 209 00 Ci JSR 
D7E4 209 4464 DC JSR 
D7E7 A9 04 LDA 
D7E?7 05 7F ORA 
D7EB A6 82 LDX 
D7ED 99 EC 00 sTA 
D7FO 4C 94 CI JMPF 


16, file-név hossza 
a file-név beírása a pufferbe 


a 16. poziciótól kezdve nulla! 


a 27-es pozició? 
nem 

file-tipus 
relatív file 
nem 


4 
sáv 


és szektor 
az oldal-szektorokból 


rekordhossz 
blokk írása 


csatorna-szám 


másodlagos cím 


file-tipus 
egységszám 


OPEN utasítás, (2 15 másodlagos cím 
másodlagos cím 


a sorhosszúság, kapcsolók törlése 


első karakter a pufferből 
másodlagos cím 

nem egyenlő 40-val /IOAD/? 
"g " 


utolsó sáv-szám 


sáv-szám 
utolsó egységszám 
egységszám 


file-tipus a programban 

utolsó szektor-szám 

szektor 

LED kikapcsolása 

puffer lefoglalása, blokk olvasása 
file-tipus 

egységszám 

csatorna-szám 

kapcsoló beállítása 

kész 
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D7F3 EO0 24 CPX 424 halt ej 


D7F5 DO IE BNE — D815 nem 

D7F7 AD 4C 02 LDA 024C másodlagos cím 

D7FA DO 03 BNE — D7FF nem egyenlő nullával? 

D7/FC 4C 55 DA JMP  DAS5 OPEN F 

ú7Fr 28 BiCI JSR Ci1D1 sor vizsgálata 

D802 AD 85 FE LDA — FEB5 18, tartalomjegyzék 

DB805 685 89 STA 80 sáv 

D807 A? 09 LDA 400 

DE09 85 BI sra 81 4 szektor 

DB8UB 209 46 DC JSR DC46 puffer lefoglalása, blokk olvasása 
DEE A5 7F LDA 7F egységszám 

DB10 09 02 ORA 402 

DBI2 4C EB D7 JMP D7EB a fentiek szerint tovább 

DB15 Eg 23 CPX 423 nie" 

DB17 DO 12 BNE " DBZB 

D819 4C 84 CB JMP — CBB4 a közvetlen elérésű file megnyitása 
DB1IC A? 02 LDA 402 

DBIE BD 96 02 STA 0296 file-tipus 

DB21 A? 00 LDA HOD 

D823 85 7F STA 7F d meghajtó 

D825 8D BE 02 STA  OZBE 

D828 209 42 DO JSR D042 a BAM betöltése 

DEZB 29 E5 Ci JSR — CIES a sor elemzése 

DBZ2ZE DO 04 BNE D834 sikerült megtalálni a kettőspontot? 
D830 AZ 00 LDX — $Og 

D832 FO OC BERG — D840 

D834  8A TXA sikerült megtalálni a vesszőt? 
D835 FO o05 BEN — DS83C nem 

D837 A? 30 LDA 430 

D839 4C CB CI JMP — CICB 36, "syntax error" 

DS8ZC 88 DEY 

DB8ZD FO0O01 BEO — D840 

D83F 88 DEY ? 

D840  8C 7A 02 STY — 027A mutató az egységszámon 

D843 A9 8D LDA  $8D shift CR 

D845 29 68 C2 JSR C268 a sor vizsgálata 

DB848 ES INX 

D849 B8E 78 02 STX 0278 vessző-számláló 

DB8B4C 29 12 C3 JSR S3i2 az egységszám betöltése 

D84F 209 CA C3 JSR CSCA az egységszám ellenőrzése 

D852 20 9D C4 JSR — C49D bejegyzés megkeresése 

DB8Bs5s5 AZ 00 LDX HOG alapértelmezések 

D857 BE 58 02 STX 0258 rekordhosszúság 

DB8SA BE 97 02 STX 0297 

DB85D BE 4A 02 STX — 024A file-tipus 

D860 EB INX 

D861 EC 77 02 CPX 0277 vessző az egyenlőségjel előtt van? 
D864 BO 10 BCS — D876 nem 

DB66 . 20 09 DA JSR DAD?7 a file-tipus és az üzemmód beolvasása 
D869 EB INX 

DB86A EC 77 02 CPX — 0277 további vessző? 

D86D BO 07 ECS — D876 nem 

D86F CO 04 CPY  HOA 

D871 FO SE BEOG — DBBI 

D873 20 09 DA JSR DAD9 a file-tipus és az üzemmód betöltése 
D876 AE 4C 02 LDX  — 024C 

D879 86 83 STX 83 másodlagos cím 

D87B Eg 02 CPX HOZ nagyobb vagy egyenlő, mint 2? 

DB7D BO 12 BCS — D891 igen 

D87F BE 97 02 STX 9297 Ú vagy 1 /LOAD vagy SAVE/ 


DBB2 A9 40 LDA $40 
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D884 BD F9 02 STA 02F? 
D887 AD 4A 02 LDA 024A 
DA8BA DO 1B BNE D38A7 
DB88BC A? 02 LDA 40Oo2 
D8O88BE 8D 4A 02 STA 024A 
DB891 AD 4A 02 LDA 024A 
D894 DO 11 BNE D8A7 
DB96 AS E7 LDA E7 
D898 29 07 AND 407 
DB89A BD 4A 02 STA 024A 
D89D AD 80 02 LDA 0280 
DBAB . DO 05 BNE DBA7 
DBAZ2 A? 01 LDA 401 
DBA4 BD 4A 02 STA 024a 
DBA7 AD 97 02 LDA 0297 
DBAA C9 01 CMP 401 
DBOAC FOG 18 BEOC D8C6 
DBAE 4C 40 D? JMF D940 
DB8BB1 BC 7A 02 LDY 027A,X 
DBB4 B9 08 02 LDA 0200 ,Y 
D8B7 8D 58 02 STA 0258 
DBBA AD 809 02 LDA 0280 
DBBD DO B7 BNE D876 
DBBF A? 01 LDA 401 
DB8C1i1 BD 97 02 STA 0297 
D8C4 DO BO BNE D876 
DB8Có AS E7 LDA e7 
DB8BCB 29 80 AND  48O 
DOCA AA TAX 

DBCB DO 14 BNE DBE1 
DOECD A? 20 LDA 4420 
DBCF 24 E7 BIT E7 
DB8D1 FO 06 BEO D8D? 
DB8D3 209 Bé CB JSR CBSB6ó 
D8D6 .4C E3 D? JMP D9ES 
D8D9 AD 80 02 LDA 0280 
D8DC DO 053 BNE DB8BE1 
DB8BDE 4C E35 D7 JMP D9ES 
DBE1 AD 090 02 LDA 02099 
DBE4 C9 40 ECMP  4H4OD 
D8E6 FO OD BERG D8F5 
DBE8B 8A TXA 

D8E9 DO 05 BNE D8FO 
DBEB A? 63 LDA H63 
DBED 4C CB CI JMP CiíC8B 
DB8BFOo A? 553 LDA 553 
DBF2 §4C CB CI JMP 103 €01-) 
BREE MEÁE E ÁE E TEA JE EHE E JE EE AE 9E JE AE ÁE EE E JE AE AE 
D8FS 45 E7 LDA E7 
D6F7 29.097 AND 407 
D8F9 CD 4A 02 CMP 024A 
DBFC DO 67 BNE D965 
D8FE C9 04 CMP  $HO4 
D906Ó ,FO 63 BEG D965 
D902 20 DA DC JSR DCDA 
D905 " A5 82 LDA 82 
D997: 8D 70 02 STA 0270 
" D7OA A? 11 LDA $i1 
D90C 85 853 STA ss 
D98E 209 EB DO JSR DOEB 
D911 AD 94 02 LDA 0294 
D914 20 CB D4 JSR D4CB 


file-tipus 
nem eltolt /léptetett/ 


pre 
file-tipus 


a file-tipus beolvasása az utasítás-sorból 


sáv-szám ű 
nem egyenlő nullával? 


szekvenciális /soros/ file-tipus 
üzemmód 

"gy " 

igen 


mutató a második vessző után 
betöltés 

rekordhosszúság 

sáv-szám 


mint üzemmód 


file-tipus 
a joker-kapcsoló leválasztása 


joker a névben 
le vólt zárva a file? 


igen 
Z byte a pufferben és blokk írása 
az oldal-szektor bejegyzése, kész 


első blokk sáv-száma 
oldal-szektor bejegyzése 

első karakter az input-pufferból 
! : felső vessző? 

igen 


be van már állítva a joker? 
63, "file exists" 


33, "syntax error" 

egy file megnyitása felülírással : 
file-tipus új 
leválasztás 

eltérőek a fite-tipusok? 


relatív file? 
64, "file type mismatch" 


új szektor tárolása 
csatorna-szám tárolása 


17-es csatorna 
olvasás-csatorna megnyitása 


tartalomjegyzék puffermutatójának beállítása 
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:" D917 
D919 
D91B 
D91D 
D91F 
D921 
D9725 
D9725 
D926 
D9728 
D92A 
D92D 
D92F 
D952 
D934 
D9357 
D93A 
D93D 


D940 
D943 
D945 
D947 


D93A 
D94D 
-D94F 
D951 
D955 
D955 
AD957 
D959 


D95C 
" D95E 
D960 
D965 
D965 
D967 


D96A 
D96C 
D96F 
D972 
D974 
D976 
D9778 
D97A 
D97C 
D97E 
D980 
D982 
D985 
D985 
D987 
D98A 
D98D 
D98E 
D9909 
D995 
D996 
D998 
D99A 
D99D 


Ci 


02 


Ci 


02 
02 


DE 
D4 


D9 
02 


DA 
Ci 


LDY 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
sSTA 
JSR 
JSR 
JMP 


LDA 
BNE 
LDA 
JMP 


LDA 
CMP 
BEG 
LDA 
BIT 
BEG 
LDA 
JMP 


LDA 
AND 
CMP 
BEC 
LDA 
JMP 


LDY 
STY 
LDX 
CPX 


BNE- 


CMP 
BEC 
LDA 
AND 
STA 
LDA 
PHA 
LDA 
STA 
JSR 
JSR 
PLA 
STA 
JSR 
LDA 
CMP 
BNE 
JSR 
JMP 


file-tipus 
az 5-ös bit beállítása, file megnyitása 


sáv 


és szektor 
"felső vessző" karakteres megnyitáskor 
csatorna-szám 


mutató a tartalomjegyzék-blokkban 


sáv- és szektor-szám betöltése 
blokk írása 
sáv-, szektor- és egységszám előkészitése 


első sáv-szám 
a file nincs törölve? 


62, "file not found" 


üzemmód 
nya 


5-ös bit ip : 
tesztelése a file-tipusban, ha 
nincs beállítva, ok 


64, "yprite file open" 


file-tipus 
megegyezik az utasításból származó tipussal? 


igen 
64, "file type mismatch" 


üzemmód 

"A", Append 
nem 

relatív file? 
ha igen, hiba 


a 4; 5 és 7 bit törlése 
tárolása 
csatorna-szám tárolása 


17-es csatorna 
a sáv- és szektor-szám beolvasása 
blokk irása 


a csatorna-szám visszatöltése 
oldal-szektor paraméter 
üzemmód 

"A" Append 

nem 

append előkészítése 

kész, lemezstátus előkészítése 
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D9Ag AG 15 LDY  4$i5 
D9A2 Bi 94 LDA (94) ,Y 
D9A4 BD 59 02 STA 0259 
D9A7 CB INY 
D9AB BI 94 LDA (94),Y 
D9AA 8D 5A 02 sTA 025A 
D9AD C3 INY 
D9AE Bi 94 LDA (94),Y 
D9BO AE 58 02 LDX 0258 
D9B3 BD 58 02 sTA 0258 
. D7B6  8A TXA 
D9B7 FO 0A BEC D9CS 
D9B?9 CD 58 02 CMP 0258 
D9BC FO 0Oo5 BEG D9CS 
D9BE A? 50 LDA — $50 
D9Co 209 CB CI JSR CiCB 
D9C3 AE 79 02 LDX 0279 
D9C6 BD 80 02 LDA 5280 ,X 
D9C9 85 80 STA 80 
D9CB BD 85 02 LDA 0285 ,X 
D9CE 85 81 STA 81 
D9DO 29 46 DC JSR DC46 
D9D3 A4 82 LDY 82 
D9DS5 AE 79 02 LDX 0279 
D9D8 B5 D8 LDA Da,Xx 
D9DA 99 60 02 STA 0260,Y 
D9DD 85 DD LDA DD,X 
D9DF 99 66 02 STA 0266 ,Y 
D9E2 60 RTS 
D9EJSI AS EZ LDA EZ 
D9JES 29 01 AND §$01 
D9E7 85 7F sTA zr 
D9E7 20 DA DC JSR DCDA 
D9EC 20 E4 D6 JSR D6E4 
D9EF  A5 83 LDA 83 
D9F1 C9 02 CMFP  4HOZ 
D9F3. BO 11 BECS DAO6G 
D9FS 209 SE DE JSR DESE 
D9-H AS 80 LDA 80 
D9FA 85 7E STA 76 
D9FC AS 7F LDA TF 
D9FE BD 6E 02 sTA 026E 
DAg1 AS 81 LDA 81 
DAG3 BD 6F 02 STA 026F 
DADÓóÓ 4C 99 CI JMP C199 
AE ÁE EE TE ÁE ÁE EAT E FEE ÁE JE HE AE JEE AE AE E 9E AE 96 9E9E 
DAG9 BC 7A 02 LDY 027A,X 
DAGC B97 00 02 LDA 0200 ,Y 
DADF Ag 04 LDY 404 
DA11 688 DEY 
DA12 50 08 BMI DAIC 
DA14 D9 B2 FE CMP FEBEZ2,Y 
DA17 DO F8 BNE DA11 
DA19 BC 97 02 STY 0297 
DAIC Ag 05 LDY 405 
DAIE 88 DEY 
DAI1F 30 OB BMI DA29 
DA21 D9 Bé FE CMP FEB6G,Y 
DA24 DO F8 BNE DALE 
DAZ2G BC 4A 02, STY 024A 
DA29 60 RTS 
EÁ ÁE ÁE ÁE E TERE AE TERE AE JEE AE JE ÁE AE AE AE At JE JE 3 AE EHE 
DAZA 20 59 CA JSR CAS? 
DAZD A? BOB LDA 48O 


sáv 
és szektor az első oldal-szektor-blokkból 


rekordhosszúság 
utolsó rekordhosszúság 


utolsó rekordhosszúság nulla 
azonos a rekordhosszúság? 
igen 


59, "record not present" 


sav 


szektor 


egységszám 
leválasztása 
egységszám 


a file bejegyzése 
csatorna-szám 


nagyobb vagy egyenlő mint 2? 
sáv- és szektor-szám beolvasása 


egységszám 


szektor 


a file-tipus és az üzemmód ellenőrzése 
mutató az utasítás-sorban 
karakter beolvasása a sorból 


NRe "ga. kó ab "y" tüzemmód 


tárolása 
E 0a ege és de b DRE aj. file-tipus 
tárolása 


előkészités az append számára 
olvasás-csatorna megnyitása, egy byte olvasása 


160 


DDA6G 
DAZA 
DE95 
81 


DA42 
D1A3 
402 
D4C8B 
82 
901 
F2,X 
480 
82 
83 
O2Z2B,X 


$OC 
022A 

4o0o 
0274 


DA6GD 


DAB6G 
0201 
CSBD 
DAB6G 
E2 
09277 
0278 
027A 
480 
E7 
$2A 
0200 
0201 
DATE 
C1i1ES5 
DA9O 
C2ZDC 
$os 


027A 
C200 
cs9ag 
cCsS20o 
CSCA 
C7B7 


DAZF 290 A6 DD JSR 
DAS2 FO F6G BEE 
DAS4 209 95 DE JSR 
DAS7 A6 BI LDX 
DAS7 E8 INX 
DASA BA TXA 
DASB DO 05 BNE 
DAZD 209 AZ Di JSR 
DA40 A? 02 LDA 
DA42 20 CB D4 JSR 
DA4S5 Aó 82 LDX 
DA47 A9 01 LDA 
DA49 95 F2 sTA 
DA4B A9 BO LDA 
DA4D 05 82 ORA 
DA4F A6 85 LDX 
DAS1 9D 2B 02 sTaA 
DAS4 60 RTS 
NEEE ÁE TE TE IEEE E IE JEE IE JE HE AE AE 9E AE HE JE AE JE AE EHE JE IE 
DASS Ag? OC LDA 
DAS7 BD 2A 02 STA 
DASA A? 00 LDA 
DASC AE 74 02 LDX 
DASF CA DEX 
DAGO FO DB BEG 
DASZ CA DEX 
DASZ DO 21 BNE 
DAGS5 AD 01 02 LDA 
DAGB 29 BD CS JSR 
DAGB 530 19 BMI 
DAGD 85 E2 STA 
DAGF EE.77 02 INC 
DA72 EE 78 02 INC 
DA7S EE 7A 02 INC 
DA7g A? BO LDA 
DA7A 85 E7 STA 
DAZC A? 2A LDA 
DA7ZE BD 00 02 STA 
DAB1 BD 01 02 SsTA 
DAB4 DO 18 BNE 
DAB6G 20 EE5 Ci JSR 
DAB9 DO 05 BNE 
DABB 29 DC C2 JSR 
DABE Ap 03 LDY 
DA90 88 DEY 
DA91 88 DEY 
DA92 B8C 7A 02 STY 
DA95 20 00 CZ JSR 
DA98g 209 98 CS JSR 
DA9B 209 29 CS JSR 
DATE 209 CA C3 JSR 
DAA1 20 B7 C7 JSR 
DAA4 20 9D C4 JSR 
DAA7 20 9E EC JSR 
DARAA 209 37 DI JSR 
DAAD A6 82 LDX 
DAAF 9D SE 02 STA 
DAB2 A5 7F LDA 
DAB4 8D 8E 02 STA 
DAB7 09 04 ORA 
DAB9 95 EC STA 
DABB A? 00 LDA 
DABD 85 As STA 
DABF 60 RTS 


utolsó byte? 

nem 

a sáv- és a szektor-szám olvasása 
szektor-szám 


nem $FF? 
puffer lezárása, blokk írása 


puffer mutató 2-n § ; 
csatorna-szám 


írás-kapcsoló beállítása 


csatorna-szám a táblázatban 


OPEN van 
12 utasítás-szám 


második karakter 
az egységszám beolvasása 
nem egyértelmű? 


a joker-kapcsoló beállítása 
"gen 
file-névként az utasítás-pufferben 


feltétlen ugrás 


input-sor tesztelése ":"-ig 
n"en a 


kapcsolók törlése 


a sor elemzése 
a file-tipus meghatározása 


szükség esetén az egység inicializálása 
a lemezcím előkészítése 


tartalomjegyzék betöltés 

egy byte a pufferból 
csatorna-szám 

byte az output-regiszterben 
egységszám 

tárolás utolsó egységszámként 
prg kapcsoló 


a mutató visszaállítása az input-pufferben! 
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ARE JEE JE ENE ÁE ÁE AE E AE A AE 99 JE 3 At JE IE AE AE IE 96 AE E 


83 
OZZB, X 
HFF 
DBOC 


DACO  A9 00 LDA 
DAC2 BD F9 02 STA 
DACS A5 83 LDA 
DAC7 DO OB BNE 
DAC? A? 00 LDA 
DACB 68D 54 02 STA 
DACE 209 27 D2 JSR 
DAD1 4C DA D4 JMP 
DADA C9 OF CMP 
DADó FO 14 BEO 
DADB 20 02 DB JSR 
DADB AS 83 LDA 
DADD C9 02 CMP 
DADF 90 FO BCC 
DAE1" AD 6C 02 LDA 
DAE4 "DO 03 BNE 
DAE6 4€C 94 CI JMP 
DAE9 4C AD CI JMP 
DAEC A9 BE LDA 
DAEE 85 83 STA 
DAFO 20 02 DB IJSR 
DAF3 €C6 83 DEC 
DAF5 10 F9 BPL 
DAF7 AD 6C 02 LDA 
DAFA DO 03 BNE 
DAFC 4€C 94 CI JMP 
DAFF  4C AD Ci JMP 
EA ÁÁ ÁL E ALA AE AE AE át AE AE At AE EE AE At 3E E AE AE JE AE HAL 
DBO2 A6 83 LDX 
DBO4 BD 2B 02 LDA 
DBO7 C9 FF CMP 
DBO9 DO 01 BNE 
DBOB 60 RTS 
DBOC 29 OF AND 
DBOE 85 82 sSTA 
DB1Ig 209 25 D1 JSR 
DB13 C9 07 CMP 
DBIS FO OF BEE 
DBI17 C9 04 CMP 
DB19 FO 11 BEO 
DBIB 20 07 Di JSR 
DBIE BO 09 BCS 
DEZO 20 62 DB JSR 
DBZ3 209 A5 DB IJSR 
DBZ26ó 20 F4 EE JSR 
DB29 4C 27 D2 JMP 
DBZ2C 20 Fi DD JSR 
DBZ2F 29 IE CF JSR 
DH32 20 CB EI IJSR 
DB35  A6 D5 LDX 
DB37 8673 STX 
DB39 E6 73 INC 
DB3B A9 00 LDA 
DB3D 85 70 STA 
DB3F 85 71 STA 
DB41 A5 D6 LDA 
DBA3: 38 SEC 
DB44 E9 0E SBC 
DB46 685 72 STA 


CLOSE-rutin 


másodlagos cím 
nem egyenlő nullával? 
$ másodlagos cím, LOAD 


csatorna lezárása 
a 17 és 18 belső csatorna lezárása 


45 

ha igen, minden csatornát lezárni! 
file-t lezárni! 

másodlagos cím 


2-nél kisebb? 


lezárás 


14 

másodlagos cím 

file-t lezárni! 
következő másodlagos cím 


lezárás 


file lezárása 

másodlagos cím 

csatorna-szám beolvasása 
nincs csatorna hozzárendelve? 


ha nincs, kész 


csatorna-szám leválasztása 


file-tipus ellenőrzése 
közvetlen elérés? 


igen 

relatív file? 

igen 

írás-csatorna megnyitása 

nincs file íráshoz? 

utolsó blokk írása 

KYLE ZÁTÉK a tartalomjegyzékben, egy blokk írása 
BAM írása 

csatorna lezárása 


puffer-szám beolvasása és blokk írása 
puffer váltás 

az utolsó oldal-szektor beolvasása 
01dal-szektor-szám 
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DB4A8 29 51 DF JSR — DF51 
DB4B Aé 82 LDX 82 
DB4AD A5 70 LDA 70 
DB4F 95 B5 $TA  B5,X 
DBS1 A5 71 LDA 71 
DB5S3 95 BB STA  BB,X 
DBSS5 A? 40 LDA 440 
DBS7 20 A6 DD JSR — DDAG 
DBSA FO 03 BEG — DBSF 
DBSC 20 A5 DB JSR — DBA5 
DBSF 4C 27 D2 JMP D227 
TERE AE E REÁ TE A AE FEE E At AE AE JE ÁE ÁE IE AE E AE IE AE AE At At Hé A 
DB62 A6 82 LDX 82 
DB64 B5 B5 LDA  B5,X 
DB6ó 15 BB ORA — BB,X 
DB68B DO 0C BNE —" DB76 
DB6A 29 EB D4 JSR — D4EB 
DB6D C9 02 CMP 402 
DBóF DO 05 BNE " DB76 
DB71 A? OD LDA HOD 
DB73 20 Fi CF JSR — CFFI 
DBE76 20 EB D4 JSR — D4EB 
DB79 C9 02 CMP 402 
DB7B DO OF BENE " DBBC 
DB7D 29 LE CF JSR — CFIÉ 
DBB80  A6 82 LDX 82 
DE82 B5 B5 LDA .B8.X 
DB84 DO 02 BNE — DB8B8 
DBB6  D6 BB DEC — BB,X 
DEBB D6 B5 DEC  B5,X 
DB8A A? 09 LDA 100 
DBBC 358 SEC 

DB8D E9 01 SBC HOI 
DBB8F 48 FHA 

DB90 A? 00 LDA HOD 
DB92 209 CB D4 JSR — D4CB 
DBE95 20 Fi CF JSR — CFFI 
DB98 68 PLA 

DB99 20 Fi CF JSR  CFFI 
DB9C 209 C7 DO JSR — DBC7 
DBÖF 20 99 D5 JSR — D599 
DBAZ 4C IE CF JMF — CFIE 
KÁ E ÁE ÁÁÁ At AE JEE AE AE At dt AE AE AE E AH AE IE AEI 
DBAS5 A6 8B2 UDX. 82 
DBA7 BE 70 42 STX — 0270 
DBEAA A5 83 LDA 83 
DBAC 48 PHA 

DBAD BD 60 02 LDA — 0260,X 
DBBOg. 85 81 sTaA 81 
DEB2 BD 66 02 LDA — 0266,X 
DBB5 BD 94 02 STA 0294 
DBBB BS EC LDA  EC,X 
DBBA 29 01 AND HOL 
DBEC 85 7F STA 7F 
DEBE AD 85 FE LDA — FES85 
DECI 685 80 STA 809 
DBC3 20 93 DF JSR — DF93 
DEC6 48 PHA 

DBC7 85 F9 sTaA  F9 
DBC9 :-29 60 D4 JSR — D460 
DBCC A9 09 LDY 400 
DBECE BD EG FE LDA — FEEG,X 
DED1 85 87 sTA 87 
DBD3 AD 94 02 LDA 0294 
DBD6 85 86 STA  B6 


a file blokk-számának kiszámítása 
csatorna-szám 


rekord-szám /Lo/ 
rekord-szám /Hi/ 


be van állítva a 6-os bit? 
nincs 

bejegyzés! 

csatorna lezárása 


utolsó blokk írása 
csatorna-szám 

rekord-szám /Lo/ 
rekord-szám /Hi/ 

nem egyenlő nullával? 

a puffer mutató beállítása 


nem egyenlő 2-vel 
CR 


a pufferben 

a puffer mutató beállítása 
most egyenlő 2-vel? 

nem 

puffer váltás 
csatorna-szám 

rekord-szám /Lo/ 


rekord-szám /Hi/ 


a mutató a végére! 


puffer mutató nullán 

nulla a pufferbe! 

második byte -a végére utaló mutatóval 
írás a pufferbe! 

blokk felírása a lemezre 

ellenőrzés 

puffer váltás 


file-bejegyzés 
csatorna tárolása 


másodlagos cím tárolása 
szektor-szám beállítása 


/tartalomjegyzék/ 
mutató a tartalomjegyzékben 


egységszám 8 

18, tartalomjegyzék sáv 
beállítása 

puffer-szám növelése 


tartalomjegyzék-blokk olvasása 
puffer-cím 


puffer mutató 
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(86) ,Y 
420 
DC21 
D125 
404 
DC29 
(86) ,Y 
$BF 
(86) ,Y 


(86) ,Y 
89 
71 
$1B 
(86) ,Y 


(86) ,Y 
DCX6 
80 


81 
467 
E645 


400 
(86) ,Y 


(B6) ,Y 


71 
(86) ,Y 


(86) ,Y 
81 


(B6) ,Y 
C87D 
DC29 


(B6) ,Y 
4OF 
480 
(86) ,Y 
9270 
41C 
BS,X 
(86) ,Y 


901 
D1E2 
DCB6 
024A 


DBD8 Bi 86 LDA 
DBDA 29 20 AND 
DBDC Fo 43 BEC 
DBDE 209 25 Di JSR 
DBE1i1 C9 04 CMP 
DBES3 FO 44 BEG 
DBES Bi B6 LBA 
DBE7 29 8F AND 
DBE97 ?1 86 STA 
DBEB C8 INY 
DBEC Bi 86 LDA 
DBEE 85 80 STA 
DBFO 84 71 STY 
DBF2 AOG 1B LDY 
DBF4 Bil B6 LDA. 
DBF6 48 PHA 
DBF7 88 DEY 
DBF8B B1 86 LDA 
DBFA DO 0A BNE 
DBFC: 85 80 STA 
DBFE 68 PLA 
DBFF §5 81 sTA 
DCO1 A? 67 LDA 
DCOS3 20 45 E6 JSR 
DCÖ6 48 PHA 
DCO7 A? 00 LDA 
DCO9 91 86 STA 
DCOB CB INY 
DCOC 971 8B6 sTA 
DCOE 68 PLA 
DCOF A4 71 LDY 
DCii1 91 86 STA 
DCi3 C8 INY 
DCI4 BI 86 LDA 
DCió6 85 81 STA 
DCI8B 68 PLA 
DC19 91 B6 STA 
DCIB 29 7D CB JSR 
DCIE 4C 29 DC JMF 
DC21 Bi 86 LDA 
DC23 29 OF AND 
DC25 09 80 ORA 
DC27 91 86 STA 
DC29 AE 70 02 LDX 
DC2C Ao IC LDY 
DC2E B5S B5S LDA 
DCS0 91 Bó6 STA 
DCS2 C8 INY 
DCS3 B5 BB LDA 
DCSS 91 86 STA 
DC37 68B PLA 
DCS8 AA TAX 
DC39 A9 90 LDA 
DCSB 05 7F ORA 
DCSD 20 909 D5 JSR 
DC40 68 PLA 
Dc41 85 853 STA 
DC43 4C 07 Di JMP 
ÁÁÁ E ÁE E ÁÁÁ ÁE RE EA JEE RE TERE JEE HEHE E 9E 
DC46 A? 01 LDA 
DC48 20 EZ Di JSR 
DC4B 20 Bé DC JSR 
DCSE AD 4A 02 LDA 
DCS1 48 PHA 
DCS2 BA ASL 


A 


file-tipus 

lezárt file? 

igen 

file-tipus ellenőrzése 
relatív file? 


igen 


a 4. 5. és 6. bit törlése 
a file-tipusban 


sáv-szám 


felülíráskor a file szektor-számának 
tárolása 


a sáv-szám beállítása 
szektor-szám 


67, "illegal track or sector" 


sáv-szám 


és a helyettesítő file szektor-szám törlése 


új file sáv- és szektor-számának beállítása 


korábbi file törlése 


file-tipus beolvasása 
a 4-3. bitek leválasztása 


csatorna-szám 


blokk-szám /Lo/ 


blokk-szám /Hi/ 
puffer-szám 


"IRÁS"-kód 
egységszám 
blokk írása 


másodlagos cím 
írás-csatorna megnyitása 


blokk olvasása, a puffer lefoglalása 
írás-csatorna és -puffer keresése 
a mutató beállítása 


file-tipus 
tárolása 
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7F 
EC,X 
DO9B 
82 

80 
DC65 
81 
0244 ,X 


404 
DCA? 
83 
OZZB,Y 

440 
OZZB,Y 
0258 
G7sX 
D2Z8E 
DC81 
D20F 


82 
CD,X 
0259 
89 
025A 
81 
D6D3 
DE73 
D599 
82 

402 
61,X 

400 
D4C8B 
E153 
DE3E 


D156 
82 
O23E,X 


488 
F2,X 


82 
A7,X 
A 


4o2 
0099 ,Y 
AE,X 

480 
AE,X 
A 


402 
0999 ,y 
400 
BS,X 
BB,X 
400 
9244 ,X 


DCS3 05 7F ORA 
pcs5 95 EC STA 
DCS7 209 9B DO JSR 
DCSA A6 82 LDX 
DCSC A5 80 LDA 
DCSE DO 05 BNE 
DCeg A5 81 LDA 
DCS2 9D 44 02 STA 
DCS5 68 PLA 
DC66 C9 04 CMP 
DC6A DO SF BNE, 
DC6A A4 85 LDY 
DC6C B? 2B 02 LDA 
DCéGF 09 40 ORA 
DC71 99 2B 02 STA 
DC74 AD 58 02 LDA 
DC77 95 C7 STA 
DC79 20 BE D2 JSR 
DC7C 10 03 BPL 
DC7E 4C OF D2 JMP 
DC81 AG 82 LDX 
pcs3 95 CD STA 
DCS AC 597 02 LDY 
DCS8B 84 80 STY 
DCBA AC SA 02 LDY 
DCBD 84 81 STY 
DCBF 20 DS D6 JSR 
DC92 209 73 DE JSR 
DC95 29 99 DS JSR 
DC98 A6 82 LDX 
DCYA A97 02 LDA 
Dpec9C 95 Ci STA 
DCJE A? 00 LDA 
DCAB 209 CB D4 JSR 
DCA3 20 53 El JSR 
DCAG 4C 3E DE JMP 
DCA9 209 56 Di JSR 
DCAC, A6 B2 LDX 
DCAE 9D SE 02 STA 
DCB1 A? 88 LDA 
DEBS 95 F2 STA 
DCBS 60 RTS 
TALÁLT TETTE TE TETEL TE EE IEEE AE IE IE EHE 9 9E 96 9E 
DCBó A6 82 LDX 
DCBB B5 A7 LDA 
DCBA 0A ASL 
DCBB AB TAY 
DCBC A9 02 LDA 
DCBE 979 99 00 STA 
DCCi B5 AE LDA 
DCCS 09 80 ORA 
DCCS 95 AE STA 
DCC7 0oA ASL 
DCC8 A8 TAY 
DCC? A? 02 LDA 
DCCB 99 99 00 STA 
DCCE A? 00 LDA 
DCDO. 95 B5 sTA 
DCD2 95 BB STA 
DCD4 A? 00 LDA 
DCD6 9D 44 02 STA 
DCD9 60 RTS 


egységszám 


a blokk olvasása 7 5 
csatorna-szám  . szt ta Actu kise 


sáv s A "ré a 
láncolt sáv? ezen a í9 
szektor ; Bi 
mint vég-mutató ani Ni 2 kett 
file-tipus b 
relatív file? 

nem 


másodlagos cím 
csatorna-szám 


a READ- és a WRITE-kapcsoló beéll-: 
rekordhosszúság ! 


az oldal-szektor puffer megkeresése 
megvan? 
TÓ, "no channel" 


csatorna-szám 


oldal-szektor sávja 


oldal-szektor szektora 

paraméter átadása a lemezvezérlőnex 
blokk olvasása 

és ellenőrzése 

csatorna-szám 


írás-mutató 

puffer mutató nullán 

a következő rekord megkeresése 
a sáv és a szektor-szám 

byte a pufferból 
csatorna-szám 


byte az output-regiszterbe 
a KksAD-kapcsoló beállítása 


a mutató visszaállítása 
csatorna-szám 
puffer-szám 

2-szer 

puffer mutató /Lo/ 


a 7-es bit beállítása, puffer nem foglalt 


puffer mutató /Lo/ 


blokkok száma /Lo/, 
blokkok száma /Hi/ 


vég-mutató 
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FEETE ERETT EE TE EFE TE TEJE JEE ÁE ÁE TE RE At AE JEE 436 96 új blokk behelyezése 


DCDA 29 A? Fi JSR F1A9- szabad szektor a BAM-ban 

DCDD A? 01 LDA $OLl 

DCDF 20 DF Di JSR DIDF csatorna megnyitása, puffer lefoglalása 
DCE2 29 DA D6 JSR D6óDO paraméter átadása a lemezvezérlőnek 
DCES 29 Bé DC JSR DCBó a mutató visszaállítása 

0CEB A6 82 LDX 82 csatorna-szám 

3CEA AD 4A 02 LDA 024A file-tipus 

DGCED 48 PHA 

1. EE 0A ASL A 

DGEF 05 7F ORA 7F egységszám 

DpoFi1 95 EC STA EC,X tárolása 

2DF3 68 PLA 

DCF4 C9Y 04 CMP 404 relatív file? 

DCF6 FO 05 BEG DCFD igen 

DCFB A? 01 LDA OI 

DCFA 95 F2 STA ÉZsk s a WRITB-kapcsoló beállítása 
DCFC 60 RTS 

DCFD A4 83 LDY ind másodlagos cím 

DCFF B9 2B 02 LDA OZZB,Y csatorna-szám a táblázatban 
DDO2 29 3F AND $3F a legfelső két bit törlése 

DDO04 09 40 ORA 440 6-os bit beállítása 

DDO6 99 2B 02 STA OZ2B,Y olvasás- és írás-kapcsoló 

DDO9 AD. 58 02 LDA — 0258 rekordhosszúság 

DG 95 CZ STA E7,x a táblázatban 

DDOE 209 BE D2 JSR D28E puffer keresése és lefoglalása 
DDI11 19 03" BPL DD16 megvan? 

DD13 4C OF D2 JMP D20F " 78, "no channel" 

DD16 A6 82 LDX 82 csatorna-szám 

0DI9 95 ED STA CD, X oldal-szektor puffer-száma 

DDIA 29 CI DE JSR DEC1 puffer törlése 

DDID 20 IE Fi JSR F11E szabad blokk keresése a BAM-ban 
DD29  A5 80 LDA 80 sáv 

DD22 BD 59 02 STA 0259 az első oldal-szektorhoz 

DDZS AS 81 LDA 981 szektor 

DD27 8D sA 02 sSTA 025A az oldal-szektorhoz 

DD2A A6 82 LDX 82 csatorna-szám 

DD2C BS CD LDA ÖD.X puffer-szám 

DD2E 29 D3 D6 JSR D6D3 paraméter átadása a lemezvezérlőnek 
DD31 A97 00 LDA HOD 

DD33 29 E? DE JSR DEE? puffer mutató nullán 

DD36 A? 00 LDA HOD 

DDZ38 29 BD DD JSR- — DD8D nulla, sávmutatóként a pufferben 
DDS3B A? 11 LDA  §i11 gő 

DDZD 29 8D DD JSR DD8D mint végmutató a pufferben 

DD40 A? 00 LDA HOD nulla 

DD42 29 8D DD JSR DD8D mint oldal-szektor-szám a pufferben 
DD45 AD 58 02 LDA 0258 rekordhosszúság 

DD48 209 BD DD JSR DD8D a pufferben 

DDA4B AS BO LDA 80 a blokk sáv-száma 

DD4D 209 BD DD IJSR DD8D a pufferben 

DDSO  A5 81 LDA 81 szektor-szám 

DDS2 209 8D DD JSR DD8D a pufferben 

DDSS5 AJ 10 LDA 410 16 

DDS7 29 E? DE JSR DEE? puffer mutató 16-on 

DDSA 29 3E DE JSR DES3E a sáv- és a szektor-szám beolvasása 
DD5D AS5 80 LDA 80 első adatblokk sáv-száma 

DDSF 209 BD DD IJSR DD8D a pufferben 

DD62 AS5 81 LDA B1 első adatblokk szektor-száma 
DD64 20 BD DD JSR DDB8D a pufferben 

DD67 29 6C€ DE JSR DE6C blokk felírása a lemezre 

DD6GA 209 99 D5 JSR D599 és ellenőrzése 

DD6D A? 02 LDA HOZ 

DD6F 29 CB D4 JSR D4Cg puffer mutató 2-n 

DD72 A6 82 LDX 82 csatorna-szám 
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DD75 A9 00 LDA 4$0OO a 

DOI7 Fő "G7 SBC C7,X rekordhosszúság 

DD79 95.Ci STA  CiíI,X írásmutató 

DD7B 20 E2 E2 JSR E2E2 puffer törlése 

DD7E 20 19 DE IJSR DE19 baloldali byte beírása a pufferbe 
DDB1 209 5E DE JSR DESE blokk felírása a lemezre 
DDB4 29 99 D5 JSR D599 ellenőrzés 

DDB7 20 F4 EE JSR EEF4 BAM 

DDBA 4C 98 DC JMP DC98 kész 

RAKNAK EKRHREEEEKEKEREREK KER EE RE egy byte felírása az oldal-szektor-blokkba 
DOBD. 48 PHA byte tárolása 

DDBE  A6 8B2 LDX 82 csatorna-szám 

DD90  BS CD LDA CD,X o1ldal-szektor pufferszáma 
DD92  4C FD CF JMF CFFD byte a pufferbe 

ÉTÉ JE TE TETE A ÁE TEA E EHE JE AE E AE JE TEJE JE JÉ E AL AE AE 9 AE manipulálás a kapcsolókkal 
DD95 90 06 ECC DD9D 

DD97 A6 82 LDX 82 csatorna-szám 

DD99" 15 EC ORA EG. X kapcsoló beállítása 

DD9B DO 06 BNE DDAS , 

DD9D  A6 B2 CbX 82 csatorna-szám 

DD9F 49 FF EOR  HFF 

DDA1 35 EC AND EC,X a kapcsoló törlése 

DDAZ 95 EC STA EC,Xx . 

DDAS 60 RTS 

DDA6- A6 B2 LDX 82 csatorna-szám 

DDAB 35 EC AND EC,X a kapcsoló vizsgálata 

DDAA 60 RTS 

KENE EBEÉ EE ÁE JEE JEE AE AE AE JE 36 JEE EHE AE írás-utasításkód ellenőrzése 
DDAB 209 93 DF JSR  DF93 a puffer-szám olvasása 

DDAE AA TAX 

DDAF BD 5B 02 LDA 025B,X s 

DDB2 29 FO , AND  HFO az utasításkód leválasztása 
DDB4 C9 909 CMP. 499 íráskód? 8 

DDB6 60 RTS 

MAAA ÁE RE ÁE AE E AE ALA ÁE AE AE AE ÁE AE E AE JEE IE At dé JE IE AE At 4 
DDB7 AZ 00 LDX  44Ooo 

DDB9 86 71 GTX. 73 másodlagos címek számlálója 
DDBB BD 2B 02 LDA O2Z2B, X csatorna-szám betöltése a táblázatból 
DDBE C9 FF CMP  HFF 

DDCO DO 08 BNE DDCA a file nyitva van?, 

DDC2 A6 71 LDX Ft 

DDC4 EB INX a számláló növelése 

DDCS EG 10 CPX  HIO kisebb 16-nál? 

DDC7 909 FB BCC DDB9 v 
DDC9 60 RTS 

DDCA 86 71 STX 08 

DDCC 29 3F AND  $3F a csatorna-szám leválasztása 
DDCE AB TAY 

DDCF B9 EC 00 LDA BOEC,Y 

DDD2 29 01 AND Oi egységszám leválasztása 

DDD4 . 85 70 STA 70 

DDD6 AE 53 02 LDX 0253 

DDD9 BS E2. LDA E2,X 

DDDB 29 81 AND 981 egységszám leválasztása 

DDDD. C5 70 CMP. 70 azonos egység? . ; 
DDDF DO EI BNE DDC2 nem . 

DDE1 B9 60 02 LDA — 0260,Y tartalomjegyzék szektor-szám 
DDE4 D5 DB CMP D8,X azonos a file-éval? 

DDEó6 DO DA BNE DDC2 nem 


DDEB B97 66 02 LDA 0266 ,Y 
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DDEB DS DD CMP. DD,X 
DDED DB D3 BNE DDC2 
DDEF 18 CLC 

DDFO. 60 RTS 

FEAEBAL ÁE AE EE BE E AE AE AE AE AE EÁ E TEJE HERE ÁE t 9E 96 E 96 AE 
DDF1 20 9E DF JSR DF7E 
DDF4 50 B6 BVC DDFC 
DDFó6 20 SE DE JSR DESE 
DDF9 29 99 D5 JSR D599 
DDFC 60 RTS 

TERET Át At TERE AE AE E AE FEE TERE ÁE RE ÁE E AE AE E 9E-AE 96 9 9É 
DDFD 209 2B DE JSR DEZ2ZB 
DEgg  A5 80 LDA ao . 
DEO02 971 94 STA (949,Y 
DEo4 CB INY 

DEGS5 AS 81 LDA 81 
0ES7 91 94 STA (94) ,Y 
DEg97 4C 05 El JMP E105 
TEJRE JE EÁ E JEE JE EE RE 9E AE JEA RE JE E NEEE 94 dé AE At 9 At 
DEOGC 209 .2B DE JSR DEZ2B 
DEOF Bi 94 LDA (949 ,Y 
DE11 85 80 STA 80 
DE15 CA INY 

DE14 Bi 94 LDA (949 ,Y 
DEi1i6 85 81 SsTA 81 
DE18 60 RTS 

EREJE ÁÁ Át ÁÁ ÁE AE EHE IE EREJE ÁE At ARE 96 96E dé át 96 
DE19 28 2B DE JSR DE2B 
DE1C A? 00 LDA 4$4O0 
DEE. "91 984 STA (949,Y 
DE20 CB INY 

DE21 A6 82 LDX 82 
DE25 B5 Ci LDA C1,Xx 
DE25 AA TAX 

DE26 CA DEX 

DE27  8A TXA 

DEZG - 91 94 STA (949,Y 
DE2ZA 60 RTS 

VETETTE ÁE AE ÁÁ AE ALA AE EÁ 3E JEE JE JEA AE JE 969 36 96 96 4E 
DEZ2B 20 953 DF JSR DF95 
DEZE  0A ASL A 
DE2F AA TAX 

DESO  B5 9A LDA 7A,X 
DES2 65 95 STA 95 
DES4 A97 00 LDA OO 
.DESG6 85 94 STA 94 
DESG Ag 00 LDY  $Oo 
DESA 60 RTS 

FEREÁL ALÁZ ÁE E EE TETTE IE IA A JE EHE EE 96-46 96 JE 6-9 
DESB 209 EB DO JSR DOEB 
DESE 209 93 DF JSR DF953 
DE41 685 F9 STA Fe 
DE453  0A ASL A 
DE44 AB TAY 

DE45 B97 06 00 LDA 09006 ,Y 
DE48 65 80 sSTA 80 
DE4A B9 07 00 LDA 00907 ,Y 
DE4D .85 81 STA Bi 
DE4F 60 RTS 


azonos a mutató? 
nem 


egy blokk felírása a relatív file-ba 
a puffer-szám betöltése 

nem relatív file? 

blokk felírása 

és ellenőrzése 


folytatósáv felírása 

a puffer mutató beállítása 
sáv-szám 

a pufferben 


szektor-szám 
a pufferben 
a relatív kapcsoló beállítása 


folytatósáv és szektor-szám beolvasása 


a puffer mutató beállítása 
sáv-szám 


és a szektor-szám olvasása 


folytatósáv az utolsó blokknál 
puffer mutató beállítása 
nullára 

mint sáv-szám 


csatorna-szám 
mutató a blokkban 


-1 

mint mutató a blokkban 
puffer mutató nullán 

a puffer-szám beolvasása 


2-szer 


puffer mutató /Hi/ 


puffer mutató /Lo/ 


a sáv és a szektor beolvasása 
csatorna-szám beolvasása 
puffer-szám beolvasása 

és tárolása 

2-szer 


sáv 


és a szektor olvasása a lemezről 
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NEEE FEE RE RE RE RE AE ÁE ÁE AE ÁE ÁE AE AE AE AE JÉ AE AE IE JE AE JE E 96 


DESO A? 90 LDA 490 
DESZ2 BD 4D 02 STA 024D 
DESS5 DO 28 BNE DE7F 
DES7 A? 80 LDA BO 
DES9 8D 4D 02 STA 024D 
DESC DO 21 BNE DE7F 
DESE A? 90 LDA 4$970 
DE6Og BD 4D 02 STA 024D 
DE63 DO 26 BNE DEBB 
DEGS5S A? 80 LDA 480 
DE67 B8D 4D 02 STA 024D 
DEGA DO IF BNE DEBB 
DE6GC A? 90 LDA 90 
DEGE BD 4D 02 STA 024D 
DE71 DO 02 BNE DE75 
DE75 "A97 BO LDA 4BO 
DE75 68D 4D 02 sSTA 024D 
DE78 A6 82 LDX 82 
DE7A B5 CD LDA CD,X 
DE7C AA TAX 

DE7D 1015 BPL DE92 
DE7F 29 DO D6 JSR DóDO 
DEB82 208 93 DF JSR DF95 
DES5 AA TAX 

DEBÓó AS 7F LDA KA 
DEBB 9D 5B 02 STA 925B,X 
DEBB 209 15 El JSR E115 
DEBE 20 93 DF JSR DF93 
DE91 AA TAX 

DE92 4C 06 D5 JMP D506 
TEÁT REÁL ÁÁ AL AE ÁE ÁE E 9E AE AE JE AE ÁL A AE FEE EE 9694 16 
DE95 A? 00 LDA $OpD 
DE97 20 C8 D4 JSR D4CB 
DE9A 209 37 Di JSR D137 
DE9D 85 80 STA 80 
DE9F 29 37 Di JSR D157 
DEA2 85 81 SsTA 81 
DEA4 60 RTS 

HETE ÁE ÁÁ At AE EE ÁÁ AE TE JEE ÁE AE ALLA TE AE AE 
DEAS 48 PHA 

DEA6 A? 00 LDA  4OD 
DEAB 685 6F STA 6F 
DEAA 85 71 STA 71 
DEAC B9 Eg FE LDA FEEGg,Y 
DEAF 85 70 sTA 70 
DEB1 BD EB FE: LDA FEEOG,X 
DEB4 §5 72 STA 72 
DEBó 68 PLA 

DEB7 AB TAY 

DEBB 688 DEY 

DEB97 Bi 6F LDA (6F),Y 
DEBB 971 71 STA (719 ,Y 
DEBD 88 DEY 

BEBE 19 F? BPL DEB97 
DECO 60 RTS 

DECI AB TAY 

DEC2 B9 Eg FE LDA FEEOG,Y 
DECS 85 70 STA 70 
DEC7 A? 00 LDA HOD 
DEC9 685 6F STA eF 
DECB A8 TAY 

DECC 971 6F STA (6F),Y 


írás-utasításkód 


olvasás-utasításkód 


olvasás-utasításkód 
írás-utasításkód 


olvasás-utasításkód 


csatorna-szám 
oldal-szektor puffer-szám 


hozzá van rendelve a puffer? 
a fejléc generálása 

a puffer-szám beolvasása 
egységszám 


puffer-szám 
a pufferszám beolvasása 


blokk felírása 

folytatósáv betöltése a pufferból 
puffer mutató nullán 

a byte beolvasása 

és tárolása sávként 


a byte beolvasása 
és tárolása szektorként 


a puffer tartalmának lemásolása 


Y puffercím /Hi/ 
X puffercím /Hi/ 


Y puffer tartalmát 
X puffer szerint lemásolni! 


Y puffer törlése 
puffer-szám 
cím betöltése /Hi/ 


cím betöltése /Lo/ 


puffer törlése 


169 


DECE CB INY 


DECF DD FB BNE DECC 

DED1 60. RTS 

NEEE JE EE E EE JE RE HE JE JE EREJE HÉ JEE 3E JE JEE az oldal-szektor-számának betöltése A 
DED2 A9 09 LDA HOD $ 

DED4 20 DC DE JSR DEDC puffer mutató nullán 

DED7 Ag 02 LDY 402 

DED9 Bi 94 LDA (94),Y a 2. byte tartalmazza az oldal-szektor számát 
DEDB 60 RTS 

ARE JEE ELETE NE ÁÁ AE EJ E JE ÁE ÁE ÁE E 9696 9E AE puffer mutató beállítása az oldal-szektorra 
DEDC 85 94 STA 94 mutató /Lo/ 

DEDE A6 82 LDX 82 csatorna-szám 

DEEG  B5 CD LDA CD,X puffer-szám 

DEE2 AA TAX 

DEE3 BD Eg FE LDA FEEOG,X puffer-cím /Hi/ 

DEE6 85 95 STA 95 beállítása. 

DEE8 60 RTS 

AAN KE ÁT EE TE NEEE JE JE 9E E 3636 96-44 36 46 4 oldal-szektor puffer mutatója 
DEE9 48 PHA mutató az oldal-szektorban 

DEEA 20 DC DE JSR — DEDC a puffer mutató beállítása 

DEED 48 PHA 

DEEE  8A TXA puffer-szám 

DEEF  0A ASL A 2-szer 

DEFO AA TAX . 

DEF1 68 PLA puffer mutató /Hi/ 

DEF2 95 9A STA 9A,X 

DEF4 68 "  PLA 

DEF5 95 99 STA  99,X puffer mutató /Lo/ 

DEF7 60 RTS 

FERB RE ÁE TEREK JE TENNÉ RE NEE BEREN E E 9996 46 4 az oldal-szektor betöltése 

DEFB 29 66 DF IJSR DF66 a pufferben van az oldal-szektor? 
DEFB 530 0E BMI DFOB nincs 

DEFD 50 13 BVC DF12 ok 

DEFF A6 82 LDX B2 csatorna-szám 

DFO1 B5 CD LDA CD,X puffer-szám 

DFO3 209 IB DF JSR DF1B : oldal-szektor olvasása 

DFO6 29 66 DF JSR DF66 a pufferben van? 

DFO9 10 07 BPL DF12 igen? 

DFOB 209 CBEI JSR — EICB az utolsó oldal-szektor betöltése 
DFOE 2C CE FE BIT — FECE a V-bit beállítása 

DFI1 60 RTS 

D-iZ A5 D6 LDA D6 01dal-szektor végmutató ja 

DF14 20 E9 DE JSR — DEE? mutató beállítása az oldal-szektorban 
DF1í17 2C CD FE BIT FECD V-bit törlése 

DFIA 60 RTS 

KEK EK NEE KE EE JE JRE E NEJE EE AE 3EJE HE AE oldal-szektor olvasása 

DFIB 85 F9 STA F9 puffer-szám 

DFID A? 80 LDA $8BO olvasás-utasításkód 

DFIF DO 04 BNE DF25 

RAKAT AA E ENE TE E EE AE AE AE TEJE JEE 9E JE AE AE JE AE At oldal-szektor felírása 

DF21 85 F? STA F9? puffer-szám 

DF23 A9 90 LDA 490 írás-utasításkód 

DF25 48 PHA 

DF26 BS EC LDA EC,XxX 

DF2B 29 01 AND  $01 egységszám leválasztása 

DF2A 85 7F STA 7F 

DF2C 68 PLA 

DFZD 05 7F ORA 7F utasításkód és az egységszám tárolása 
DF2F BD 4D b2 STA 924D 

DF32 Bi 94 LDA (94) ,Y sáv-szám 

DF34 85 80 STA 80 
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DF36 CB INY 


DF37 Bi 94 LDA (974)9,Y 
DFS397 685 81 STA 81 
DFS3B AS F9 LDA F9 
DFSD 209 D3 D6 JSR D6óD3 
DF4Ag  A6 F9 LDX FT? 
DFA2 4C 93 D5 JMP D5953 
AE E TE EE AE TE ÁE HE E TE TE TE A EE TE E EE TE TE ÁE E AE AE 
DF45 A6 B2 LDX 82 
DF47 BS CD LDA CD,X 
DF49 A4C EB D4 JMP D4EB 
AEK JEE ÁE AE E TE E AE E At JE JE AE JE AE JE AE AE AE JE 9E JE E IE A 
DFAC A? 78 LDA 178 
DFSE 209 5C DF JSR DFSC 
DFS1 CA DEX 

DFSZ 10 F8 BPL DF4C 
DFS4 A5 72 LDA 782 
DFS6  4A LSR A 
DFS7 20 SC DF JSR DFSC 
DFSA AS 73 LDA 73 
DFSC 18 CLC 

DESD 65 70 ADC 70 
DFSF 85 70 STA 70 
DF61 909 02 BCC DF65 
DFó3 E6 71 INC 79 
DrFó5 60 RTS 
VARRÁKRERERENEKKENREEEREREERAK 
DFó6 209 D2 DE JSR DED2 
DF6? CS D5 CMP Dp5 
DFOB DO BE BNE DF7E 
DF6D A4 D6 LDY D6 
DFó6F Bi 94 LDA (94),Y 
DF71 FO 04 BEG DF77 
,DF73 2C CD FE BIT FECD 
DF76 60 RTS 

DF77 2C CF FE BIT FECF 
DF7A 60 RTS 

DF7B A5 DS LDA D5 
DF7D C9 06 CMP  §4O6 
DF7F BO 0A BCS DFB8B 
DFB1 0A ASL A 
DF82 AB, TAY 

DFB3 A? 04 LDA o4 
DF85 85 94 STA 94 
DFB7 Bi 94 LDA (94);Y 
DF89 DO 04 BNE DF8F 
DFBB 2C DO FE BIT FEDOG 
DFBE 60 RTS 

DFBF 26 CE FE BIT FECE 
DF92 60 RTS 

FEET JE RE E TETEJE RENÉE NEJE AE IEEE ÁE AE AE Át At EA E AE 
DF93 A6 82 LDX 82 
DF95  B5 A7 LDA A7,X 
DF97 10 02 BPL DF9B 
DF79 B5 AE LDA AE,X 
DF9B 29 BF AND 4$BF 
DF9D 60 RTS 


szektor-szám 


puffer-szám 
paraméter átadása a vezérlőnek 


puffer mutató az oldal-szektorban 
csatorna-szám 

puffer-szám 

puffer mutató beállítása 


egy relatív file blokkjainak száma 
01dal-szektoronként 1240 blokkmutató! 
£714/871-nez 

oldal-szektor-szám 

következő oldal-szektor? 

az utolsó blokkban lévő mutatók számát 
kettesével 

hozzá kell adni az eddigi összeghez 

a foglalt oldal-szektor blokkok száma 


hozzáadás 


az oldal-szektor ellenőrzése a pufferben 
az o0ldal-szektor számának betöltése 
egyenlő a szükséges blokk-számmal? 

nem 

mutató az oldal-szektorban 

sáv-szám 

még nincs behelyezve? 

bitek törlése 


N-bit beállítása 


oldal-szektor-szám nagyobb vagy 
egyenlő mint 6? 
igen 


8áv-szám beolvasása 
már megtörtént? 
az N- és a V-bit beállítása 


a V-bít beállításá 


a puffer-szám betöltése 
csatorna-szám 

puffer-szám 

foglalt? 

puffer-szám a második táblázatból 
V-bit törlése 
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DF9E A6 82 LDX 
DFAO BE, 57 02 STX 
DFA3 B5 A7 LDA 
DFA5 10 09 BPL 
DFA7 BA TXA 
DFAB 18 EL 
DFA9 69 07 ADC 
DFAB BD 57 02 STA 
DFAE B5 AE LDA 
DFBO 85 70 STA 
DFB2 29 1F AND 
DFB4 24 70 BIT 
DFBó 60 RTS 
DFB7 A6 82 LDX 
DFB9 BS A7 LDA 
DFBB 30 02 BMI 
DFBD B5 AE LDA 
DFBF C9? FF CMP 
DFC1 60 RTS 
DFC2 A6 82 LDX 
DFC4 09 BO ORA 
DFC6" B4 A7 LDY 
DFCS8 19 03 BPL 
DFCA 95 A7 STA 
DFCC 60 RTS 
DFCD 95 AE STA 
DFCF 60 RTS 
FEHERJE NEE ÁE JE HE JE AE RE AE AE IE ÁE IEEE IE JEE 9E 4E AE AE AE JE 96 At 
DFDO  A9 20 LDA 
DFD2 20 9D DD J5R 
DFD5 A9 80 LDA 
DFD7 20 A6 DD JSR 
DFDA DO 41 BNE 
DFDC A6 82 LDX 
DFDE Fó BS INC 
DFEOg DO 02 BNE 
DFEZ2 F6 BB INC 
DFE4 A6ó 82 LDX 
DFEó 6B5 CI LDA 
DFEB FO 2E BEO 
DFEA 209 E8 D4 IJSR 
DFED A6 82 LDX 
DFEF  D5 Ci CMP 
DFF1 90 03 BCC 
DFF3 29 3C E0 JSR 
DFF6  A6 B2 LDX 
DFFg  B5 CI LDA 
DFFA 209 CB D4 JSR 
DFFD Al 99 LDA 
DFFF 85 85 STA 
E001 Ag 20 LDA 
E003 29 9D DD JSR 
E006 20 04 E5 JSR 
E009 48 PHA 
EggA 99 28 BCC 
EGgC A? 00 LDA 
EDE 20 Fó D4 JSR 
Eg11 DO 21 BNE 
Ep13 68 PLA 
E014 C9 02 CMP 
EO016 FO 12 BEG 
Eo018 A9 807 LDA 
EO1A 209 97 DD JSR 


420 
DD9D 

430 
DDA6G 


csatorna-szám 

tárolása 

a puffer-szám betöltése 
foglalt a puffer? 


a szám növelése 7-tel 
és tárolása 
puffer-szám a 2. táblázatból 


a felső 3. bit törlése 


csatorna-szám 

puffer-szám 

szabad a puffer? 

a 2. táblázatból származó puffer-szám 
szabad? 


a következő rekord átvitele a rel. file-ba 
5. bit törlése 


7. bit tesztje 

be van állítva? 
csatorna-szám 
rekord-szám növelése 


rekord-szám /Hi/ 

csatorna-szám 

írásmutató 

nulla? 

a puffer mutató beállítása 

csatorna-szám 

kisebb a puffer mutató az irásmutatónál? 
igen 

blokk felírása, a következő blokk olvasása 
csatorna-szám 

írásmutató 

a puffer mutató beállítása a fenti értékre 
a byte a pufferból 

az output-regiszterbe 


az 5. bit törlése 

rekordhosszúság hozzáadása az írásmutatóhoz 
és tárolása 

a következő blokk? 


a sáv-szám betöltése 
megvan a blokk? 
mutató 

2-vel egyenlő 

igen 

a 7. bít beállítása 


uaz 


EO01D 29 2F D1 JSR D12F byte a pufferból 


E020  B5 99 LDA  99,X puffer mutató 

E022 99 44 02 STA 0244 ,9Y mint vég-mutató 

E025 A? OD LDA HOD CR 

E027 685 85 STA $ az output-regiszterben 
E029 60 RTS 

EO2ZA 29 35 Eg JSR — E035 

EOZD A6 82 LDX 82 csatorna-szám 

ED2F A? 00 LDA  4OD 

E031 95 CI GTA Fix írásmutató nullán 

E033 60 RTS 

E034 68 PLA 

E035 AG B2 LDX ae csatorna-szam 

Eo37 95 CI sTA CL,X az írásmutató beállítása 
E039 4C 6E El JMP — E16E 

TREE SE NE SHE JEE JEE JEE 9E JE JEE E TE AE IEEE 9E 96 blokk felírása és a következő blokk olvasása 
EO3C 20 D3 Di JSR — Di1D3 egységszám beolvasása 
EO3F 29 95 DE JSR DE95 a sáv- és szektor-szám beolvasása 
E042 20 9E DF JSR DF9gE a puffer-szám beolvasása 
E045 509 16 BVC — Eg5D relatív file? 

E047 20 5E DE JSR — DESE blokk írása 

EO04A 20 IE CF JSR — CFIE puffer-váltás 

EO04D A9 02 LDA 4$O2 

Eg4áF 29 CB D4 JSR — D4CB puffer mutató kettőn 
Eo052 20 AB DD JSR DDAB írás-utasításkód? 

Eu55 DO 24 BNE — E07B nem 

E057 20 57 DE JSR DE57 blokk olvasása 

EG5SA 4C 99 D5 JMP D599 és ellenőrzése 

EOSD 20 1E CF JSR — CFIE puffer-váltás 

E060 29 AB DD JSR — DDAB írás-utasításkód? 

E063 DO 06 BNE — E06B nem 

E065 29 57 DE JSR — DE57 blokk olvasása 

E068 20 99 D5 JSR — D599 és ellenőrzése 

E06B 29 95 DE JSR DE95 sáv- és szektor-szám beolvasása 
ED6E AS5 80 LDA BO sáv 

E070 FO 09 BECG E07B folytató sáv? 

E072 20 IE CF JSR CFIE puffer-váltás 

E07S 29 57 DE JSR DE.57 blokk olvasása 

E07B 20 LE CF JSR — CFIE puffer-váltás 

EO07B 60 RTS 

FÁNK E TT TEJRE TERE JE TE JEE TERET E RE JE egy byte beírása a rekordba 
Eo7C 29 05 El JSR — E105 

EO07F 209 93 DF JSR DF93 puffer-szám beolvasása 
Eoa2 0gA ASL A 2-szer 

E083 AA TAX 

Eo84  A5 85 LDA 85 adatbyte 

E0B46 81 99 STA (99,X) beírása a pufferbe 

Eg89g B4 99 LDY 99,Xx puffer mutató 

EOGA CB INY növelése 

EO8B DUO 09 BNE E096 nem egyenlő nullával? 
E0gD A4 82 LDY 82 csatorna-szám 

EO8F B9 CI 00 LDA BOCI ,Y írásmutató 

Eu92 FOGA BEO — E09E egyenlő nullával? 

E094 ADO 02 LDY 402 puffer mutató 2-n 

E096 98 TYA 

E097 A4 82 LDY 82 csatorna-szám 

E099 D9 CI 00 CMP — OOCI,Y puffer mutató azonos az írásmutatóval? 
EO9C DO 05 BNE — EgAZ3 nem 

EO09E A? 20 LDA  $2O Me: 

EOAN  4C 97 DD JMP DD97 az 5. bit beállítása 
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EDAS 
EgA5 
EDA7 
EOAA 


FEET RE NE NE JEE JE AA JEE JE IE DE IE AE JE JEE AE JE JEA AE IE 


EOGAB A? AO LDA $AD 
EBDAD 20 A6 DD JSR — DDAG 
EOBO DG 27 BNE " EZD9 
EOB2 A5 85 LDA 85 
EOGB4 29 7C E0 JSR — E07E 
EOB7 A5 F8 LDA , F8B 
EOB9 FO OD BEA — EXCB 
EOBB 60 RTS 

EOBC A9 20 LDA 420 
EOBE 29 A6 DD JSR — DDA6G 
EOC1i1 FO 05 BEOG — E0C8 
EüC3 A9 51 LDA 451 
EOCS BD 6C 02 STA — 926C 
EOCB 20 F3 ED JSR — EOF3 
EOCB 209 53 El JSR —E153 
EDCE AD 6C 02 LDA  — 026C 
EODI FO 03 BEOG — EgD6 
EOD3 4C CB CI JMP — CICB 
EGD6 4C BC E6 JMP — E6BC 
EOD9 29 80 AND 480 
EODB DO 05 BNE  " EgE2 
EODD A5 FB LDA — F8 
EODF FO DB BEN — EOBC 
EGE1 60 RTS 

EOE2 A5 85 LDA 85 
EOE4 48 PHA 

EGES 29 1CES5 JSR — E31C 
EOEB 68 PLA 

EOE9 85 85 STA 85 
EOEB A9 BO LDA  $8BO 
EGED 29 9D DD JSR — DD9D 
EOFO 4C BZ E0 JMP " EOB2 
TEAR ÁE EÁ E AE AE AE At AE dt 9 EE AE JE AE E EE ÁE 96 dé 969 
EO0F3 A? 20 LDA 420 
EOF5 29 A6 DD JSR — DDAG 
EoFB8 DO 0A BNE — E104 
EOFA A? 009 LDA $X0 
EOFC 85 85 sTA 85 
EOFE 29 7C Eg JSR — E07C 
E101 4C F3 EO JMP — EOF3 
EI04 6Ó RTS 

NEKETEK TE BEEE TETEJÉRE E JE RE HE JE JEE TERE EBBE AE 3E AE 
E105 A? 40 LDA 440 
E107 20 97 DD J8R — DD97 
EIOA 20 9E DF JSR — DF9E 
EIODD 09 40 ORA 440 
EIOF AE 57 02 LDX — 9257 
El12 95 A7 STA  A7,X 
EL114 60 RTS 

E115 29 9E DF JSR — DF9E 
E118 29 BF AND $BF 
E11A AE 57 02 LDX — 0257 
E11D 95 A7 STA — A7,X 
E11F 60 RTS 


99,Xx 
EgAA 
EG3C 


a puffer mutató növelése 

egyenlő nullával? 

ha nem, blokk írása, a következő blokk olva- 
sása 


egy byte beírása a relativ file-ba 


a 6. és 7. bit tesztelése 
magas? 

adatbyte 

beírni a rekordba! 

vége? 

igen 


5. bit tesztelése 

alacsony? 

51, "overflow in record" 

a hibakapcsoló beállítása 

a rekord megmaradó részét nullákkal kitölteni! 


be van állítw a hibakapcsoló? 
nincs 

a hibaüzenet előkészítése 
hibamentes végrehajtás 


a 7. bit magas? 
igen 


vége? 


adatbyte 
az oldal-szektor bővítése 


a 7. bit törlése 
byte beírása a file-ba 


rekord feltöltése nullákkal 


5. bit tesztelése 
magas? 


adatbyteként nullát 
beírni a rekordba, 
amig a rekord megtelik! 


puffer-szám beírása a táblázatba 


6. bit beállítása 
puffer-szám betöltése 
6. bít beállítása 
7 csatorna-számot 
beírni a táblázatba 


4rppp 


puffer-szám olvasása 
6. bit törlése 
csatorna-szám 4 7 
beírása a táblázatba 
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HANK E AE IE IE HE IE JE E NEJE JE HE AE AE JE AE 9 396 96 96 


E120 
E122 
E125 
E127 
E12A 
E12C 
E12F 
E131 
E155 
E135 
E158 
E13B 
E15D 
€140 
E142 
E145 
E147 
E14A 
E14C 


EL4D 
E14F 
£152 


E155 
E€156 
E157 
E15B 


E15E 
E160 
£162 
E165 
E167 
E169 
E16B 
EL6GE 
E170 
E172 
E174 
E176 


"178 


E17A 
E17C 


(E17E 


E190 
E18B2 
E185 
E187 
189 
E18B 
E18D 
E190 
E195 
€195 
£197 
E19A 


E19D 
E1AO 
E1A2 
E1A4 
E1A7 
E£1A9 
E1AC 
ELRE 


ElB1 


A9 
20 
Do 
20 
B5S 
D9 
FO 
F6 
Do 
20 
20 
A1 
99 
A? 
99 
BS 
D9 
FO 
60 


A97 
9? 
60 


20 
20 
AS 


4. 


A6 
A97 
9D 
A? 
95 
A? 
20 
A6 
B5S 
85 
C6 
cg 
Do 
Ag 
es 
B5S 
85 
20 
AG 
c5 
709 
FO 
20 
20 
99 
A6G 
9D 
4cC 


20 
A97 
85 
20 
BO 
20 
A6 
9D 
60 


80 
AG 
37 
2F 
99 
44 
22 
99 
06 
3C 
2F 
99 
3E 
89 
F2 
99 
44 


"01 


DD 


D1 


02 


Eo 
D1 


02 


00 


02 


00 


DF 
D1 


Eli 


02 


Ci 


D4 


LDA 
JSR 
BNE 
JSR 
LDA 
CMP 
BEG 
INC 
BNE 
JSR 
JSR 
LDA 
STA 
LDA 
sTA 
LDA 
CMF 
BEG 
RTS 


LDA 
STA 
RTS 


JSR 
JSR 
LDA 
JMP 


LDX 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDX 
LDA 
STA 
DEC 
CMP 
BNE 
LDA 
STA 
LDA 
sSTA 
JSR 
LDX 
CMP 
BCC 
BEC 
JSR 
JSR 
BCC 
LDX 
STA 
JMP 


JSR 
LDA 
STA 
JSR 
BCS 
JSR 
LDX 
STA 
RTS 


180 
DDA6G 
E15E 
D12F 
99,Xx 
9244 ,9 
E153 
99,Xx 
E13B 
Eg3C 
D12F 
(99,x) 
OZZE,Y 
489 
90F2,Y 
99 ,X 
9244 ,9 
Er4D 


481 
00F2,Y 


DFDD 
D12F 
85 

E13D 


82 
HOD 
DZZE,X 


egy byte beolvasása a relatív file-ból 


a 7. bit tesztelése 

magas? 

a byte beolvasása a pufferból 

puffer mtató 

összehasonlítása a vég-mutatóval 

azonos? 

puffer mutató növelése 

nem egyenlő nullával? 

blokk felírása, következő blokk olvasása 
a byte olvasása a pufferból 


az output-regiszterbe 


a READ- és a WRITE-kapcsoló beállítása 
puffer mutató 

összehasonlítása a vég-mutatóval 
azonos? 


vég-kapcsoló beállítása 


a következő rekord megkeresése 
puffer-szám és csatorna-szám beolvasása 
adatbyte 

az output-regiszterbe 


csatorna-szám 

CR 

az output-regíiszterbe 

a vég-kapcsoló beállítása 
50, "record not present" 
csatorna-szám 

írásmutató 

tárolása 

egyenlő 2-vel? 

nem 

rekordhosszúság 

a putfer mutató beállítása 
csatorna-szám 

puffer mutató nagyobb az írásmutatónál? 
nem 

puffer-váltás 
csatorna-szám 


puffer-váltás 


puffer-váltás 


a puffer mutató beállítása 
csatorna-szám 
vég-mutató 
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E1B2 29 2B DE JSR DEZ2B puffer. mutató nullán 


E1BS5 A4 87 LDY 87 

EIB7 BRi1 94 LDA (749) ,Y a pufferból származó byte 
E1B9 DO OD BNE E1C8B nem egyenlő nullával? 

ELi1BB 88 DEY 

EI1BC CO 02 CPY 402 

EI1BE 99 04 BCC  E1C4 

E1COg C6 88 DEC 88 

Ei1C2 DO F3 ; BNE " E1B7 

E1C4 C6 BB DEC 88 

EICG6 18 CLC 

E1C7 60 RTS - 

Eí1C8 98 TYA 

E1C9 38 SEC 

EICA 60 RTS 

kedjotkatjetjákati : ) ter fjrdbztt keto zá széteső slázáás lldketjtékatóntáás az utolsó oldal-szektor beolvasása 
EI1CB 29 D2 DE JSR DED2 az oldal-szektor számának beolvasása 
E1CE 85 D5 sTaA D5 és tárolása 

EIDO A? 04 LDA 4$O4 

E1D2. 85 94 STA 94 

E1D4 AD 0A LDY  §OA 

E1D6 DO 04 BNE " E1DC 

EIDB 88 DEY 

EíiD9 88 DEY 

EíiDA 30 26 BMI E202 

EIDC Bi 94 LDA (94) ,Y az előző blokk sáv-száma még 
EI1DE FO F8 BEEE E1D8 nincs felírva? 

E1Eg 98 TYA 

E1ELi 4A LSR A a szám: 2 

E1E2 CS D5 CMP  D5 egyenlő az aktuális blokk számával? 
E1E4 FO 07 BERG — EIEF igen 

ELE6 85 D5 sTA D5 ha nem, rekord-számként tárolni! 
E1EB A6 82 LDX 82 csatorna-szám 

EIEA BS5 CD LDA eED.X puffer-szám 

EIEC 209 1í1B DF JSR — DFIB blokk olvasása 

E1EF Ag 090 LDY  $4OOG 

E1F1 684 94 STY 94 puffer mutató 

E1F3 Bi 94 LDA (94) ,Y sáv-szám 

Ei1F5 DO OB BNE E202 követi tovább a blokkot? 
Ei1F7 CB INY 

EIFB8B BI 94 LDA (94) ,Y a szektor-szám egyenlő a vég-mutatóval? 
EIFA AB TAY 

EIFB 88 DEY 

EÍFC 84 D6 STY D6 a vég-mutató tárolása 

EIFE 98 TYA 

EiFF 4C E? DE JMP DEE? a puffer mutató beállítása 
E292 AJ 67 LDA 1H67 

E294 20 45 E6 JSR E645 67, "illegal track or sector" 
FEE JEE EHE AE TE TE EHE TE RE EE RE TERE 96 EJ 9 E 9646 P-utasítás, "kecord" 

E207 209 B3 C2 JSR C2B3 sor ellenőrzése 

E20A AD 01 02 LDA 92091 másodlagos cím 

EZOD 65 83 sra 83 

EZ2OF 209 EB DO JSR DOEB a csatorna-szám keresése 
E212 99 05 BCC — E219 megtalálta? 

E214 A9 70 LDA 4H7O 

E216 209 CB CI JSR — CICB 76, "no block" 

E219 A9 AD LDA HAD 

EZ21B 209 9D DD JSR DD9D 6. és 7. bit törlése 

EZ1E 29 25 Di JSR D125 a "REL"-file ellenőrzése 
EZ221 FO 05 BERG  — E228 igen 

E223 A? 64 LDA 464 

E225 209 CB CI JSR C1CB 64, "file type mismatch" 
E22g BS5 EC LDA  EC,X 
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02 


02 


02 


EZ 


Eo 
E1 


Ci 


EZ 


DD 


egységszám 
rekord-szám /Lo/ 


rekord-szám /Hi/ 3 Me 


csatorna-szám 


READ- és WRITB-kapcsoló A 
a byte-mutató 
nulla? 


összehasonlítani a file rekordhosszúságával! 
51, "overflow in record" 


a rel.file-on belüli mutató kiszámítása 
a megfelelő oldal-szektor-blokk olvasása 
megvan a blokk? 


a 7. bit beállítása 
és 54, "record not present" 


a 7. bit tesztelése 
alacsony 
58, "record not present" 


kész 


mutató a relatív file-ban 
a puffer mutató beállítása 
csatorna-szám 
rekordhosszúság 


a pozició negatív 


pozitiv? 
67, "illegal track or sector" 


mutató hozzáadása az adatblokkban 
nincs tulcsordulás 

plusz 2 

mutató beállítása 

és a byte beolvasása a pufferból 
51, "overflow in record" 

puffer mutató /Lo/ 

puffer. mutató /Hi/ 


sáv és szektor összehasonlítása 
nem egyenlő? 


sáv 
folytatóblokk? 


LVATÓ 


EZ2B4 209 D3 E2 JSR E2D3 sáv és szektor-szám összehasonlítása 


E2B7 DO 06 BHNE EZBF nem egyenlő 

EZ2B9 209 IE CF JSR CF1E puffer-váltás 

EZBC 4C DA D2 JMF D2DA 

EZBF 29 DA D2 IJSR D2DA 

E2C2 AD 00 LDY —4$Oo0D 

EZ2C4 BI 87 LDA (89) ,Y sáv 

E2C6ó" 85 80 sSTA 80 

EZCB CB INY 

E2C9 Bi 89 LDA (89) ,Y és a következő blokk szektora 
EZCB §5 81 STA 81 

EZCD 4C AF DO JMP DOAF blokk olvasása 

EZDO 209 3E DE JSR DE3E 

EZD3 Ag 00 LDY  4OD 

EZDS Bi 89 LDA (89) ,Y sáv-szám 

EZD7 Cs 80 CMP 80 összehasonlítása 

EZ2D9 FO 01 BEG EZDC 

EZDB 60 RTS 

EZDC CB INY j 

EZDD Bi 89 LDA (B9),Y szektor-szám 

EZDF C5 B1l CMP 81 összehasonlítása 

E2E1 60 RTS , 

EE HE JE AE ÁE AE AE AE EE At EE EE E At JE AE IE AE JE AE HE 96 AT adatblokk felosztása a rekordban 
EZ2E2 29 28 DE JSR DEZB puffer mutató beállítása 

EZ2ES Ag 02 " LDY  HO2 

E2E7 A? 00 LDA  4OOD 

EZ2ZE9 91 94 STA (94) ,Y puffer törlése 

EZEB CB INY 

EZEC DO FB BNE E2E7 

EZEE 29 04 E3 JSR E304 mutató a következő rekordra! 
E2Fi1 95 Ci sTaA Gi,Ax 

EZF3 AB TAY 

EZ2F4 A? FF LDA  HFF 

EZF6ó 91 94 STA (94),Y ÉFF, mint a rekord első karaktere 
EZ2FB 209 04 E3 JSR E394 a mutató a következő rekordra! 
EZFB 99 F4 BCC E2F 1 

EZFD DO 04 BNE . E303 megtelt a blokk? 

EZFF  A9 00 LDA  4OO 

EZ301 95 CI STA G1.X írásmutató nullán 

E303 60 RTS 

FEJEMRE JE JE RE JE JE AE JE AE 9 AE EE 96 96 AE 9E 969696 36-96 96 46 46 96 mutató beállítása a következő rekordra 
E304 A6 82 LDX 82 csatorna-szám 

E396 B5 CI LDA Ci. Xx írásmautató 

ES08 38 SEC 

EZ309 FO OD BEA E318 egyenlő nullával? 

ESZOB 18 CLE 

ES0C 75 C7 ADC C7,Xx rekordhosszúság hozzáadása 
EZ3GE 99 OB BCC E31B kisebb mint 256? 

EZ3109 DO B6 BNE — E318 egyenlő 256-tal? 

E312 A9 02 LDA 4$O2 

E314 , 2C CC FE BIT FECC 

ES317 60 RTS a 

E318 69 01 ADC HWOGI kettőt hozzáadni 

E31A 38 SEC 

E31B 60 RTS 

FEJERE RE JE JE E JE JEE JE A E IE AE AE JEE JE AE JEE AE 96 963E 96 E az oldal-szektor bővítése 
E31C 29 D3 Di JSR D1D3 az egységszám betöltése 

E31F .29 CB E1 JSR — EICB az utolsó oldal-szektor betöltése 
E322 29 9C E2 JSR E29C i 

E325 20 7B CF IJSR CF7B 
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E32B 
E32A 
! E32C 
E32E 
E330 
E332 
E334 
E336 
E338 
E33B 
E33E 
E340 
E342 
E343 
E344 
E345 
E347 
E349 
E34B 
E34D 
E34F 
E351 
E3535 
E355 
E357 
E358B 
E35A 
E35D 
E35F 
E361 
E363 
E365 
E368 
E36A 
E36B 
E36D 
E36F 
E371 
E372 
E374 
E376 
E378B 
E37A 
E37C 
E37E 
E3BO 
E381 
E384 
E38B6 
E388 
ES3BA 
E3BB 
E3BD 
E3BF 
E392 
E394 
E396 
£399 
E39B 
E39D 
E39F 
E3A2 
ESAS 
E3A5 
E3A7 
E3A9 
E3AC 


CE 
EF 


DE 


Ci 


DF 


02 


02 


D4 


FI 


oldal-szektor száma 


oldal-szektor-szám és a mutató kiszámitása! s 
szabad blokkok száma 

csatorna-szám 

rekordhosszúság 


plusz az adatblokkban lévő mutató 


mutatót a végén 2-vel növelni! /sáv/szektor/ 
nincs átvitel? 
az oldal-szektor-számának növelése 


mutatót 16-ra állítani! 


oldal-szektor puffer mutatójának BESZSÉBÉBB 
oldal-szektor száma 


kisebb mint 6? 


52, "file too large" 
vég-mutató 


minusz az utolsó vég-mutató 
minusz 16 


oldal-szektor száma 


minusz az utolsó bldal-szektor száma 
tárolás 


az eredmény törlése 


a relatív file-ok blokkszámának kiszámítása 


relatív file blokkszáma 
nagyobb mint a lemezen levő szabad Bilelekole ? 
52, "file too-:large" 


52, "file too large" 
byte a pufferból 
plusz 1 

mint írásmutató 


szabad blokk keresése a BAM-ban 
sáv és szektor a pufferben 
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DE 


DF 


E4 


DE 


DD 


DD 


DF 


DF 


DE 


csak egy blokk szükséges? 

blokk beírása 

puffer-váltás 

paraméter átadása a lemezvezérlőnek 
szabad blokk keresése a BAM-ban 

sáv és szektor a pufferben 

puffer törlése 


puffer-váltás vk tazb 
paraméter átadása a lemezvezérlőnek 


puffer törlése 

nulla byte és a végmutató a pufferben 
blokk felírása 

a sáv és a szektor betöltése 

sáv 


és szektor 

tárolása 

sáv és szektor betöltése 
a szektor 


és a sáv tárolása a 


oldal-szektor puffer mutatójának beállítása 


mutató nem egyenlő nullával? 
oldal-szektor felírása, következő beolvasása 


puffer mutató 16-on 
oldal-szektor számának növelése 


sáv az oldal-szektorban 
szektor az oldal-szektorban 
szektor 


és a sáv visszaolvasása 

nincs további blokk 

oldal-szektor száma 

megváltozott? 

igen 

puffer mutató felírása az oldal-szektorba 
végmutató 

kisebb? 

azonos 

puffer mutató beírása az oldal-szektorba 


puffer mutató nullán 


nulla, mint sáv-szám 
vég-mutató 


minusz egy 

mint szektor 

blokk felírása 

és ellenőrzése 

a BAM aktualizálása 

relativ file mutatójának aktualizálása 
puffer-váltás 
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E43C 20 FB DE JSR DEF8 
E43F 70 03 BYVS E444 
E441 4C 75 E2 JMP E275 
E444 A? 80 LDA $HB8BO 
E446 20 97 DD JSR DD977 
E4497 A? 50 LDA 450 
E44B 209 CB CI JSR ciíc8B 
FEE HE TERE RE 94 AE TE TERE ÁE AE AE At At At 96 At 94AE AE AI IE HA 
E44E 29 1E F1 JSR F11E 
E451 20 1E CF JSR CF1E 
E454 20 Fi DD JSR DDF 1 
E457 209 93 DF JSR DF95S 
E45A 48 PHA 

E45B8 29 Ci DE JSR DECi 
E4S5E A6 82 LDX 82 
E460  B5 CD LDA CD,X 
E4652 AB TAY 

E465 68 PLA 

E464 AA TAX 

E465 A? 10 LDA 4$HIOG 
E467 20 AS DE JSR DEA5 
E46A A? 00 LDA HOD 
E46C 209 DC DE JSR DEDC 
E46F AD 02 LDY 402 
€471 Bi 94 LDA (94),Y 
E475 48 PHA 

E474  A9 00 LDA HOD 
E476 20 CB D4 JSR D4CB 
E479 68 PLA 

E47A 18 CLC 

E47B 69 01 ADC 401 
E47D 91 94 STA (94),Y 
E47F  0A ASL A 
E480 69 04 ADC 4HO4M 
E482 85 89 sTA 89 
E484 AB TAY 

E485 538 SEC 

E486 E? 02 SBC $O2 
E488 6865 BA STA BA 
E48A AS 80 LDA 80 
E49C 85 87 STA 87 
E48E 91 94 STA (94),Y 
E499 CB INY 

E491 A5 81 LDA a1 
E493 85 88 STA 88 
E495 91 94 STA (949 ,Y 
E497 AB 00 LDY 400 
E499 98 TYA 

E49A 91 94 STA (94),Y 
E49C CB INY 

E49D A? 11 LDA tH$il1i 
E49F 9194 STA (74,Y 
E4A1 A? 10 LDA 4$IOG 
E4A3 29 CB D4 JSR D4CB 
E4A6 209 50 DE JSR DE50 
E4A9 209 99 DS JSR D599 
E4AC AG B2 LDX B2 
E4AE B5S CD LDA CD,X 
E4B0 48 PHA 

E4B1 29 9E DF JSR DF9E 
E4B4 A6 B2 LDX 82 
E4B6 95 CD sTA CD,X 
E4BB 68 PLA 

E48979 AE 57 02 LDX 0257 
E4BC 95 A7 sTaA A7,X 


helyes oldal-szektor? 
nem 


a 7. bit beállítása 
56, "record not present" 


oldal-szektor felírása és új olvo-í:- 
szabad blokk a BAM-ban 

puffer-váltás 

blokk írása 

puffer-szám beolvasása 


puffer törlése 
csatorna-szám 
puffer-szám 


oldal-szektor 16 byte átmásolása 
a pufferba 


puffer mutató nullán, korábbi o1dc1- 


oldal-szektor száma 
puffer mutató nullán, új oldal-szekt.- 


oldal-szektor számának növelése 


2-szer 
plusz 4 


egyenlő a sáv/szektor-on álló mutatóval 


minusz 2 
egyenlő az előző oldal-szektor mutatóval? 
sáv 


a pufferben 
szektor 


a pufferben 


nulla a pufferben 


17 

TERES száma a blokkban 

kúl 

puffer mutató 16-on 

blokk felírása 

és ellenőrzése 
csatorna-szám 
oldal-szektor puffer-száma 


puffer-szám beolvasása 
csatorna-szám beírása 
a táblázatba 


csatorna-szám t 7 
a táblázatba 
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D4 


E4 


DF 


DF 


Da 


DE 
DS 


LDA 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JMP 


JSR 
LDX 
JSR 
LDA 
JSR 
DEC 
PEC 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
JSR 
ADY 
CPY 
BCS 
JMP 


VAEREKENARARKANTREANREEENEKKERÁAKAK 


E4BE A? 00 
E4CO 209 CB 
E4C3 AG 00 
E4CS5 A5 "BO 
z4C7 91 94 
c4C9 CB 

Z4CA AS BI 
FACC .71.24 
z4CE 4C DE 
FraDi 20995 
E4D4 AG 82 
E"D6 20 1B 
K4D9 A97 00 
FADB 209 CB 
E4DE C6 8A 
Z4Eg C6 BA 
EC4E2 A4 89 
E4E4 A5 87 
E4E6ó 91 94 
E4E8 CB 

£4E9 AS 88 
E4EB 91 94 
E4ED 29 JE 
EaFO. 20 99 
E4F3 A4 BA 
E4FS5S CD 05 
E4F7 Bg DB 
B4F? 4C 1E 
E4FC 00 

E4FD AG 4F 
ES500 20 21 
E506 D2 45 
E50A 89 

ESOB 52 

ES50C 85 

ESUD 209 54 
ESsi15 47 CS 
ES17 50 

ES518 BR 06 
ES51A 20 50 
ES22 51 

E523 CF 56 
ES2B 20 49 
ESZE BB 

EJZF 23 "28 
ES531 8A 89 
E3353 26 

ES534 BA 

ES35 209 50 
ESSD 20 aF 
E549 29 88 
ES542 20 49 
Es45 85 

E546 30 31 
ES4B DS 59 
ESsS50. 58 

ES51 89 

ESS2 60 

ESS5S3 8A 05 
ES556 63 853 
ESS58 29 45 
ES5SF 64 

E560 853 

E561 20 54 


4F 


52 


45 
4E 


52 
CE 


44 


52 


, 8E 


84 


58 


397 


25-24 27 


44 


4F 


45 


52 


4F 


53 


49 


50 


20 


535 


46 


54 


34 


33 


45 


4C 41 52 


45 4E D4 


4C 4F 57 


45 45 54 


54 DS 


puffer mutató nullán 


Báv 
a pufferben 


szektor 
a pufferben 


a puffer-szám beolvasása 
csatorna-szám 
blokk olvasása 


puffer mutató nullán 
oldal-szektor blokkok számlálója 


sáv-szám 
a pufferben 


szektor-szám 

a pufferben 

blokk felírása 

és ellenőrzése 

oldal-szektor blokkok számláló ja 


nagyobb vagy egyenlő mint 3? 
puffer-váltás 


hibaüzenetek táblázata 


n" ok" 

"read error" hiba száma 
"Read" 

mutató "error"-ra 

De 

mutató"file"-ra 

"too larga" 


mutató "record"-on és "not" 
.""presenD"-en 


"overflow in" 


mutató a "rekord"-on 

"write error" hiba száma 

mutató a "write"-on és "error"-on 
26 

mutató a "write"-on 

"protect oN" 


29 

mutató "disk id"-n 

mutató "mismatch"-n 
"syntax error" hiba számai 
" Syntax " 


mutató "error"-on 
166 


"mutató "write"-n "file"-n és "open"-en 


"63 mutató "file"-on 
" "VexistS"-en 


64 
mutató "file"- 
type"-on 


182 


20 


52 


55 


4C 
45 


45 
as 


52 


45 


4C 


20 
36 


74 
06 
D9 
aF 
54 
cs 
CE 


41 


4E 


CB 


4F 43 
47 41 


4B 20 
54 4F 


41 54 


48 41 


CC 


44 A4F 
20 


ca 
20 52 
09 
D2 


c5 


CB 


4C 
4F 
D2 


45 


4E 


55 


66 


20 
52 


48 


4E 


20 


54 43 CB 06 


ca 


43 aF 52 C4 


VERE AE TERE TE AE IEEE JE AE AE AE ÁE RE E E RE 9 96 969 96 AE 


E566 85 
ES567 65 CE 
E569 4F 209 
ES571 67 
E572 C9 4C 
ES7A 54 52 
ES82 209 53 
E589 61 
ESBA 83 06 
ESBD 39 62 
ES590 06 87 
E593 83 
ES94 53 
Es95 2053 
ES9D 45 CA 
ES9F 70 
ESAD CE 4F 
ESAB 45 CC 
ESAA 71 
ESAB C4 49 
ESAE 09 
ESAF 72 
ESBO 88 
ESBI 20 46 
ESB6 75 
ESB7 C3 42 
ESBF 56 52 
ESC4 51 
ESCS 55 54 
ESCA 52 
ESCB 49 56 
ESD1 45 41 
ESD6 CS 52 
ESDB 0gA 
ESDC D7 52 
ESE1 053 
ESE2 C6 49 
ESE6 04 
ESE7  CF 50 
ESEB 05 CD 
ESED 49553 
ESFS CE 4F 
ESF8a 07 
ESF9 Cé 4F 
ESFE 08 
ESFF C4 49 
E603 OB 
E604 DZ 45 
E6O0A 48 
E6OB 86 F9 
E6GOD  8A 
EGE 0A 
E6GBF AA 
E618 B5 B6 
E612 685 80 
E614 B5 87 
E616 685 BI 
E618 6B 
E619 29 oF 
E61B FO 08 
E6G61D C9 oF 
E6íiF DO B6 
E621 A? 74 
E623 DO 0D8 
E625 A? 06 


PHA 
STX 
TXA 
ASL 
TAX 
LDA 
STA 
LDA 
sSTA 
PLA 
AND 
BEG : 
CMP 
BNE 
LDA 
BNE 
LDA 


F9 


EpKaó "migmatch"-on 
5 
"no block" 
"illegal track or sector" hiba számai 
"illegal" 
"track or" 
"sectoR" 
61 sz 
mutató a "file"-on, "not"-on és "open"-en 
"file not found" hiba száma 
mutató "file"-on, "not"-on és "found"-on 
mutató "file"-on 
" s 
scratch 
ep" 
76 


"no channel" 


71 

" Dir" 

mutató "error"-on 
72 

mutató "disk"-en 
" full" 

73 

"Cbm dos" 

4. 926 


1541 

uügrive" "mot" 
" peagy 
"ErroR" 
"writE" 
"FilE" 

"opeN" 


"Mismatch" 
"Nor" 


"FounD" 

"Disk" 

"RecorD" 

a hiba-szám és a hibaüzenet előkészítése 
a hibakód tárolása 


egységszám 


2-szer 
mutató 


a sáv 

és a szektor-szám beolvasása 
a hibakód visszaolvasása 

4-3 bit leválasztása 


ha nulla, akkor 24, "read error" 
ég 


74, "aárive not ready" 
6 
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E627 09 209 ORA  42B 
E629 AA TAX 

E62A CA DEX 

E6G2B CA DEX 

ESZ2ZC BÁ TXA 

ES2D 48 PHA 

E62E AD 2A 02 LDA  " 022A 
E631 C9 0909 CMP HOW 
E633 DD OF BNE — E644 
ES35 A? FF LDA  HFF 
E637 BD 2A 02 STA  022A 
ESZA 68 PLA 

E6G3B 209 C7 E6 JSR — E6C7 
ES63E 209 42 DO JSR — D042 
E641 4C 48 E6 JMP — E648 
E644 68 PLA 

E645 29 C7 E6 JSR E6C7 
E648 209 BD CI JSR —CIBD 
EG4B A? 00 LDA 4$Xg0O 
E64D BD F9 02 STA  O2F9 
E6ó50 209 2C CI JSR G126 
E653 209 DA D4 JSR D4DA 
E656 A? 00 LDA  $HOD 
E658 85 Az sra Az 
EGS5A AZ 45 LDX 4$45 
ESGSC 9A TXS 

E65D A5 84 LDA 84 
EGSF 29 OF AND  4HOF 
E661 85 83 STA ez 
E663 C9 OF CMP. HOF 
E665 FO 31 BEG — E698 
E667 78 SEI 

E66B A5 79 LDA 79 
E66A DO IC BNE E6BB 
E66C A5 7A LDA 7A 
E66E DO 10 BNE — E680 
E670  A6 83 LDX 83 
E672. BD 2B 02 LDA O22B,X 
E675  C9 FF CMP. HFF 
E677 FO IF BEO — E698 
E679 29 OF AND  4OF 
E67B 85 82 STA 82 
E67D 4C BE E6 JMP EGBE 
HARÁARAREEEKENTERAKNEEERNEREKRKINK 
E6BO :-29 EB DO JSR DOEB 
E6B3 EA NOP 

E6B84" EA NOP 

E685 EA NOP 

E6B6 DB 06 BNE E6BE 
EE E EÁ AE E JEE E EDE HETE IE ÁE AE EE AE A 9t 9 969646 
E6BB 209 07 Di JSR D197 
EGBB EA NOP 

E6BC EA NOP 

EG6BD EA NOP 

E6GBE 20 25 DI JSR D125 
E691 C9 04 CMP. 404 
E693 BO 03 BCS E698 
E695 29 27 D2 JSR D227 
E698 4C E7 EB JMP EBE7 
FEE ÁE RE RE AAL At AE AE ALA EE EZ EE 969E 9 96 
E6G9B AA TAX 

E69C A? 00 LDA 400 
EG69E FB SED 


624 hozzáadása 


-2 


a hiba-szám tárolása 
lemezművelet száma 
OPEN vagy VALIDATE? 
nem 


hiba-szám visszaolvasása 
hibaüzenet generálása 
BAM betöltése 

hibaüzenet előkészítése 


ppopp 


input-puffer törlése 


a hiba-kapcsoló törlése 
LED kikapcsolása 
a 17. és 18. csatorna lezárása 


input-puffer mutatója nullán 


a verem-mutató inicializálása 
másodlagos cím 


15? 
igen, csatornautasítása 


aktiv a LISTEN? 

ígen 

aktiv a TALK? 

igen 

csatorna-szám 

nyiva a csatorna ehhez a másodlagos címhez? 


nincs 
csatorna-szám 
TALK 


olvasás-csatorna megnyitása 
egy byte fogadása 


LISTEN 
írás-csatorna megnyitása 
egy byte fogadása 


file-tipus ellenőrzése 
relativ file-tipus? 
igen 

csatorna lezárása 


hexadecimális szám átalakítása decimálissá 
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E69F ED DO CPX HOD 
E6A1 FO 07 BEC E6GAA 
EG6AZ 18 CLC 

E6A4 69 01 ADC HOI 
E6A6 CA DEX 

E6G6A7 A4C 9F E6 JMP EógF 
EGAA DB CLD 

AREA BELA JEE EE AE ÁL AT AE AE JEE E AE EE AE AE E ÁE AE 94 AE 
EGSAB AA TAX 

EGAC  4A LSR A 
EGAD  4A LSR A 
EGAE  4A LSR A 
EGAF  4A LSR A 
E6BD 20 B4 E6 JSR E6B4 
ESB3 BA TXA 

E6óB4 29 OF AND  $OF 
E6B6 09 50 ORA 450 
E6BB 91 A5 STA K(A5),Y 
EGBA CB INY 

EGBE 60 RTS 

VELE ÁL AE A ÁE TERE E JE AT ALA FEE Át AE AE Át AE JE AE At AE AE 
EGBC 209 253 Ci JSR Ci125 
EGBF A? 00 LDA 400 
E6GCi AD" 00 LDY  40oo 
E6C3 84 BO STY 80 
EGóCS 84 BI STY 81 
AALÁLÁL ÁE AL ÁL ÁLLT E E ÁT ALA AE EE E ELT 9E At Ata 949 
EG6C7 AD 00 LDY  $OoOG 
E6C9 AZ D5 LDX  $D5 
EGCB 86 A5 STX AS 
E6GCD AZ 02 LDX 402 
EGCF 86 A6 STX A6 
EGDI 29 AB E6 JSR E6GAB 
EGóDáA A9 2C LDA $2C 
EGóD6 91 AS STA (A5),Y 
EGDB CB INY 

E6D9 AD D5 02 LDA o2D5 
EGDC BD 45 02 STA 0245 
EGDF  8A TXA 

E6E0 20 06 E7 JSR E706 
EG6E3 A9 2C LDA H2C 
EGES 9?1AS STA K(A35),Y 
E6E7 CB INY 

E6EB, A5 90 LDA 3809 
EGEA 20 9B E6 JSR E69B 
E6ED A? 2C LDA 442C 
EGEF 91 A5 STA C(A5),Y 
E6F1 CB INY 

EóF2 AS 81 LDA 81 
EóF4 20 9B E6 JSR E69B 
EsF7 88 DEY 

EóFB 98 TYA 

EF? 198 CLC 

EGFA 69 D5 ADC $HD5S 
EG6FC BD 49 02 STA 0249 
EGFF EG A5 INC A5 
E701 A97 88 LDA 488 
E703 685 F7 STA F7 
E705 60 RTS 

ARRA AE AE EE AE A AAL E EE RAL ÁE ER E E 
E796 RA TAX 

E707 : A5 86 LDA 86 


hexadecimális szám átalakítása BCD-számmá 


BCD-szám felbontása két byte-ra 
hi-Nibble-t eltolása lefelé 


átalakítás ASCII 


legfelső 4 bit törlése 
"u" hozzáírása 

a pufferbe beírni! 
puffer-mutató növelése 


"ok" beírása a pufferbe 


hiba-kapcsolók törlése 
hiba-szám 


4 sáv 
d szektor 


hibaüzenet a pufferben /szám az akku-ban/ 
puffer-mutató 


$A5/8A6 mutató $2D5-n 


ASCII hiba-szám és a 

" " 

, 
beírása a pufferbe 
puffer-mutató növelése 
lemezstatus első számjegye 
az output-regiszterbe! 
hiba-szám az akku-ban 
hibaüzenet a pufferben 

, 
beírása a pufferbe 
a puffer-mutató növelése 
sáv 


szektor 
vég-mutató 
a KEAD-kapcsoló beállítása 


hibaüzenet szövegének beírása a pufferbe 
X szerinti hibakód 
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B6 


420 
E765 


420 
(A5) ,Y 


E706 


tA5) ,Y 


4 


E709 48 PHA 
E70A A5 87 LDA 
E70C 48 PHA 
E7OD AY FC LDA 
E70F 685 86 SsTA 
E711 . A? E4 LDA 
E713 €3 87 STA 
E715 BA TXA 
E716 AZ 00 LDX 
É7íGg Ci 86 CMP 
E71Aa FO 21 BEG 
E71C 48 PHA 
E71D 20 75 E7 JSR 
E7209 909 05 BCC 
Ezaz  2Ű 78. .§7 JSR 
E725 909 FB BCC 
727 . 5 87 LDA 
E729. "6? E6 CMP 
E72B 909 08 BCC 
E72D DO 0A BNE 
E72F A? 0A LDA 
E731 CS B6 CMP 
E753 99 04 BCC 
E755 68 PLA 
E736ő. 4C 18 E7 JMP 
E759 68B PLA 
E73A A4C 4D E7 JMP 
E7SD 20 67 E7 JSR 
E749 90 FB BCC 
E732 209 54 E7 JSR 
E745 20 67 E7 JSR 
E748 90 FB BCC 
E74A 20-54 E7 JSR 
E74D 68 PLA 
E74E 85.87 STA 
E750 68 PLA 
E751 85 86 STA 
E753 60 RTS 
HETE TEÁLEE RE At Át IEEE HE AE AE AE IE AE AE EE 94 94-96-4é96-46 
E754 C? 20 CMP 
E756 BO OB BCS 
E758 AA TAX 
E759 A? 20 LDA 
E75B 9145 STA 
E7S5D CB INY 
E7SE BA TXA 
E7S5F 209 06 E7 JSR 
E752 6b RTS 
E763 91 4A5 STA 
E765 CB INY 
E766 60 RTS 
AETR EE NEME E HETE ENE AE TETEJE E EE TE AE E TE AE AE AE 
E767 ES 86 INC 
E769 DO 02 BNE 
E76B Eéó 87 INC 
E76D Al B6 LDA 
E76F 0A, ASL 
E770 Al 86 LDA 
E772 2? 7F "AND 
E774 60 RTS 


a 886/£87 mutató tárolása 


$86/287 mutató $B4FC-n 
hibaüzenetek kezdete 


hiba-szám az akku-ban 


összehasonlítás a hiba-számmal a táblázatban 


7. bit a Carry-be 
nincs beállítva? 

7. bit a Carry-be 
várakozás a karakterre 


É$EGOA táblázat vége? 


nem, folytatni 


kész :" 


egy karakter beolvasása, 7. bit a Carry-be 
várakozás a karakterre 

és felírása a pufferbe 

következő karakter beolvasása 

várakozás a karakterre 

karakter a pufferben 


a £86/£87 mutató visszaolvasása 


a karakter beolvasása 

" " gresjel 

ha nagyobb, beírni a pufferbe! 
a kód tárolása 

üresjel 

felírása a pufferbe 

puffer mutató növelése 

kód az akku-ban 

hozzátartozó szöveg beolvasása 


karakter felírása a pufferbe 

és a mutató növelése 

a hibaüzenet egy karakterének olvasása 
mutató növelése 

karakter beolvasása 

7. bit:a Carry-be 


a karakter beolvasása 
a 7. bit törlése 
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VANARERKANERKEKEEERKEKRKENEKRKERKKEKEN 


$8D 
C268 
F258 
0278 


401 
0278 

HFF 
B6 
C4aF 
0280 
E7C5S 

4597 
cCcic8 


0278 
0280 
80 


E775 20 6D E7 ISR 
E778  E6 B6 INC 
E77A DO 02 BNE 
E77C E6 87 INC 
E77E 60 RTS 
RERRNRAREKATAKRKRARKEKEENKEKREÁARERI 
E77F 60 RTS 
ARE TERE JEE JE 9 EE JE 9 EE JE IE 9696 369436 
E7BB 60 RTS 
E7B1 EA NOP 
E7B2 EA NOP 
E783 EA NOP 
E7B4 EA NOP 
E785 EA NOP 
E7B6 EA NOP 
E7B7 EA NOP 
E7BB EA NOP 
E789 EA NOP 
E7BA EA NOP 
E7BB EA NOP 
E7BC EA NOP 
E7BD EA NOP 
E7BE EA NOP 
E78F EA NOF: 
E790 EA NOP 
E791 EA NOP 
E792 EA NOP 
E793 EA NOP 
É794 EA NOP 
E795 EA NOP 
E796 EA NOP 
E797 EA NOP 
E798B EA NOP 
E799 EA NOP 
E79A EA NOP: 
E79B EA NOP 
E79C EA NOP 
E79D EA NOP 
E79E EA NOP 
E79F EA NOP 
E7AB EA NOP 
E7AL EA NOP- 
E7AZ2 60 RTS 
EDE RE JEE AE 9 RE AE JEE TE AE AE AL E JE JE AE JE HE JE AE E AE 96 A 9 
E7A3 A? BD LDA 
E7A5 20 68 C2 ISR 
E7AB 20 58 F2 IJSR 
 EZAB AD 78 02 LDA 
E7AE 48 PHA 
E7AF A9 01 LDA 
E7BiI 8D 78 02 STA 
E7BA A? FF LDA 
E7B6 85 B6 STA 
E7BB 20 4F C4 JSR 
E7BB AD 80 02 LDA 
E7BE DO 05 BNE 
E7CO Ag 39 LDA 
E7C2 20 CB CI ISR 
E7C5 68 PLA 
E7C6 BD 78 02 STA 
E7C9 AD B9g 02 LDA 
E7CC BS5 80 STA 


a mutató növelése 
7. bit a Carry-be 


a mutató növelése 


- utasítás 

utasítás-sor ellenőrzése 
/RTS/ 

adatnevek számának 
tárolása 


egy adatnév 
a 


file keresése 

megvan? 

39, "file not found" 

file-nevek számának visszaolvasása 


sáv 
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87 
HOD 
87 


E7CE AD 85 02 LDA 
E7DI! G5 81 STA 
E7D3 Ag 053 LDA 
E7DS 29 77 D4 JSR 
E7DB A? 00 LDA 
E7DA 85 87 sTA 
E70C 28 57 E8 JSR 
E7DF 85 88 STA 
E7E1 20 4B EB JSR 
E7E4 29 59 EB JSR 
E7E7 B5 U9 STA 
E7E9 209 4B E8 JSR 
E7EC AS 86 LDA 
E7EE FO 0A BEC 
E7FO. A5 BB LDA 
E7F2 48 PHA 
E7FI 45 89 LDA 
E7FS 48 PHA 
E7F6 A? DO LDA 
E7FB 85 86 STA 
E7FA 20 39 EB JSRK 
E7FD 85 8A STA 
E7FF 20 4B EB JSR 
E892 29 39 E8 JSR 
EB805 AD 00 LDY 
E897 91 88 STA 
EBO9 20 4B E8 JSR 
EB8OC AS 88 LDA 
EBGE 18 CLC 
EBOF 69 01 ADC 
EBI11 685 88 STA 
E813 909 02 BCC 
EBIS Eé BY . INC 
E817 C6 BA DEC 
E8B17 DD E7 BNE 
EBIB 29 55 CA JSR 
EB1E A5 85 LDA 
EB8B20 CS 87 CMP 
EB22 FO 08 BEOC 
ES824 29 SE DE JSR 
EB27 A? 50 LDA 
EB829 29 45 E6 JSR 
EBZ2ZC A5 FB LDA 
EB2E DO AB BNE 
EBSD 68 PLA 
EBJi 85 89 STA 
EB8S53 68 PLA 
Es54 85 88 sTA 
E856 6C 88 00 JMF 
EBS7 29 35 CA JSR 
ESSC A5 F8 LDA 
ESSE DO 08 BNE 
EB40 209 3E DE JSR 
E845 A? 51 LDA 
EB45 20 45 E6 JSR 
E848 A5 85 LDA 
EBSJA 60 RTS 
TEERE ÁE ÁE ÁE TE ÁE AE AE AE 96 9E EE AE HE EE AE AE AE AE AE 9696 E 9 
EB4B 18 CLC 
ES84C 65 8B7 ADC 
E84E 69 00 ADC 
Es59 85 87 STA 
E852 60 RTS 


és szektor 
"USK" file-tipus 
a puffer lefoglalása, első blokk ovasása 


az ellenőrzőösszeg törlése 
egy byte beolvasása a file-ból 
tárolása, kezdőcím /Lo/ 


a következő byte beolvasása a file-ból 
kezdőcím /Hi/ 
ellenőrzőösszeg kialakítása 


a program indítási címének tárolása 


egy byte beolvasása a file-ból 
tárolása 

ellenőrzőösszeg képzése 

egy byte beolvasása a file-ból 


tárolása program-byte-ként 
ellenőrzőösszeg képzése 


a £288B/289 mutatók növelése 


a számláló csökkentése 


a következő byte beolvasása 
adatbyte 

egyenlő az ellenőrzőösszeggel? 

igen é 

paraméter átadása a lemezvezérlőnek 


54, "record not present" 

vége? 

nem, következő blokk 

visszatölteni a program kezdési címét! 
és a program futtatása 

egy byte beolvasása a file-ból 

vége? 

nem 

a paraméter átadása a lemezvezérlőnek 
51, "overflow in record" 

adatbyte 


ellenőrzőösszeg képzése 
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FEJET BE JE AE HE DEE E AE EE HE AE EE TEJE AE E ENE 94 b a soros busz IkO-rutinja 


E853 AD 01 18 LDA 1801 az A-kapu olvasása, IK(G-kapcsoló törlése 
E856 A9 01 LDA 4H$01 az "ATN vétel"-kapcsoló beállítása 
EGSB 85 7C sSTA 7€ 

ESSA 60 RTS 

KEREK REA KE EE AE JEE EGE HE 9E AE JEE JE EE JEA soros busz kezelése 

ESSB 78 SEI 

ESSC A? 00 LDA 400 

ÉSGSE 985 7C STA 76 az "AiN vétel"-kapcsoló törlése 
EB60  B5 79 STA 79 a LISÍSN-kapcsoló törlése 

E862 85 7Aa STA 7A a TALK-kapcsoló törlése 

E864 AZ 45 LDX hag 

EB866  9A TXS verem-mutató inicializálása 
E967 A? BO LDA  8D 

E869 85 FB STA F8 a vég-kapcsoló törlése 

EB6B 85 7D STA 7D az £U01-kapcsoló törlése 

E9g6D 29 B7 E? JSR E9B7 CLUCA CUT /210/ 

EB7O 20 A5 E9 JSR — E9A5 DRVA OP; BLSZ 

E873 AD 00 18 LDA 1800 

EB76 09 10 ORA HIG adatvonalak inputra kapcsolása 
EB78 BD 00 18 sSTA 1800 

E87B AD 00 18 LDA 19800 az IEC-kapu olvasása 

EB7ZE 10 57 BPL EBD7 HOIT 

EB90 29 04 AND 404 CLUCA IN? 

EB82 DO F7 BNE EB87B nem 

Eo84 20 C9 Eg J8R E9C9 a byte beolvasása a buszról 
E887 C9? ZF CMFP. H3F Unlisten? 

E989 DO 06 BENE E8971 nem 

EBBB A? 00 LDA HOD 

EBBD 85 79. sra 79 a LISTEN-kapcsoló visszaállítása 
E8BBF FO 71 BEO E902 

E891 CI 5F CMP. H5F Untalk? 

E893 DO 06 BNE E89B nem 

Eg95 A? 00 LDA Oo 

E897 85 7A sTA 7A a TALK-kapcsoló visszaállítása 
Edg99 FD 67 EEG E902 

E89B CS 78 CMP 78 TALK-cím? 

EA9D DO 0A BNE EBAT nem 

E89F AY 01 LDA HO1l 

E0A1 685 7A STA 7A a TALK-kapcsoló beállítása 
E3JA3 A? 00 LDA 190 

E8AS5 05 79 sSTA 79 a LISIVSN-kapcsoló visszaállítása 
EgA7 FW 29 BEG E8D2 

SA? CS 77 CMF 947 LISD5N-cím? 

ESAB DB 0A BNE " EB8B7 nem 

EBAD A? 01 LDA t0gi 

EBAF 85 79 STA 79 a LISTEN-kapcsoló beállítása 
EBB1 A9 00 LDA HOD 

EBB3 85 7A SsTA 7A a TALK-kapcsoló visszaállítása 
EBES FO IR BEG EeDZ2 

EBB7 AA TAX 

EGBG 29 60. AND 460 

EBBA C? 60 CMF  46óO az 5. és 6. bit magas? 

EBRC DO 3F BNE E8FD nem 

EBBE  8A TXA 

EBBF 685 84 STA 84 másodlagos cím 

EBCI 29 OF AND  $OF 

EBC3 85 83 STA - BS csatorna-szám 

EBCS A5 84 LDA 84 

EBC7 29 FO AND  HFO 4 

EBC9 C9 EG CMP. HED CLOSE? 

EBCB DO 55 BNE E902 

EBCD 58 CLI 

EBCE 20 Co DA JSR — DACD CLOSE-rutin 

E8D1 78 SEI 

EBD2 2C 09 18 BIT 1800 
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E8DS 30 AD BMI E884 
E8D7 A? 00 LDA  4$OOD 
EBD9 685 7D STA 7D 
ESBDB AD 00 18 LDA 1800 
EBDE 29 EF AND  §EF 
EBEG BD 00 18 STA 1800 
EGEJ AS 79 LDA 79 
EB8BES FOG 06 BEOG EBED 
EBE7 29 2E EA JSR EAZE 
EBEA 4C E7 EB JMF EBE7 
EBED A5 7A LDA 7A 
EBEF FO 09 BEG EBFA 
EBF1 28 9€ E? JSR E99C 
E8BF4 20 AE E? JSR EJAE 
E8F7 20 09 E? JSR E9097 
EBFA 4C 4E EA JMF EA4E 
E8FD A? 10 LDA 1HtiíOo 
EBFF BD 009 18 STA 1800 
E902 2C 00 18 BIT 1890 
E905 10 DO BPL EBD7 
ET747 88 F? BMI E902 
RRRAE TE E ÁE AE BE JEE AL AE TE JE AE EE JE HE JEE AE AE AE EHE 9E 
E709 78 SEI 

E909A 2D EB DD JSR DOEB 
E99D BO B6 BECS E9715 
E99F AG 6B2 LDX 82 
E91i1 BS F2 LDA F2,X 
E9g13 50 01 BMI E916 
E915 60 RTS 

E916 209 59 EA JSR EA59 
E919 209 CG E? JSR E9CO 
E91C 29 01 AND H0Di 
E91E 08 FHP 

E91F 20 B7 E97 JSR E9B7 
E922 28. LP 

E725 FU. 32 BEC E957 
E925 209 59 EA JSR EA59 
E928 209 CB E? JSR E7E0 
EJ72B 29 01 AND Hoi 
E92D DB F6 BNE E925 
E92F  A6 B2 LDX 82 
E931 B5S F2 LDA F2,X 
E933 29 08 AND OB 
E935 DO 14 BNE E94B 
E9357 29 59 EA JSR EAS9 
E93A 20 CG.EF JSR E7COo 
EY3D 29 01 AND H$HOIi 
E9S5F DO Fő. BNE ESZ 
E941 20 59 EA 1SR EA57 i 
E944 20 CD E? JSR E9CD " 
E947 29 01 AND 401 
E949 FO F6G BEG E941 
E94B 209 AE E? JSR E9AE 
E94E 209 59 EA JSR EA597 
E951 209 CG E? JSR E9Co 
E954 29 01 AND 401 
E956 DO FS BNE E974B 
E95B A? OB LDA 4$OB 
EJ95A 85 98 STA 98 
E9S5C 209 CO E? JSR E97CD 
E95F 29 01 AND H$Oo1l 
E961 DO 36 BNE E999 
E963 A6 82 LDX 82 


az EUI beállítása 
IEC-kapu 
az adatvonalak outputra kapcsolása 


LISTEN aktiv? 

nem 

adatok vétele 

ugrás a sorbanállási ciklusra 


TALK aktiv? 

nem 

DATA OUT, bit "1" /D6/ 

CLOCK OUT /Hi/ 

adatok küldése 

ugrás a. sorbanállási ciklushoz 


a byte figyelmen kivűl marad! /TALK, LISTEN/ 


adatvonalak inputra kapcsolása 


handshake-t megvárni! 
adatok küldése 


olvasás-csatorna megnyitása 
a csatorna aktív? 
csatorna-szám 

a RiHAD-kapcsoló magas? 

igen 


ellenőrzés az FOI szempontjából 
IEC-kapu olvasása 

adatbit leválasztása 

és tárolása 

CLOCK VUT /10/ 


ellenőrzés az BOI szempont jából 
az IbC-kapu olvasása 
adatbit leválasztása 


csatorna-szám 


ellenőrzés az 50I szempont jából 
az IFC-kapu olvasása 
adatbit leválasztása 


ellenőrzés az FOI szempont jából 
az 1EC-kapu olvasása 
adatbit leválasztása 


CIOCK OUT /Hi/ 

ellenőrzés az EOI szempontjából 
az IEC-kapu olvasása 

adatbit leválasztása 


számláló 8 biten soros átvitelhez 


az IEC-kapu olvasása 
az adatbit teválasztása 
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4C 


4E 


EA 


E99C AD 09 18 
RE 29 FD 


AND  $0I 
BEC E9787 
CLI 


JMP EA4E 


LDA 1800 
AND  $FD 
STA 1890 
RTS 


NA BE AE TERE TR AE AE FE REÁ ÁE AE IE At At IE IE AE AE A IE IE IE 96-96 96 96 96 


E9A1 BD 00 18 
E9A4 60 

EJ9AS AD 99 18 
E9AB 09 02 
EJAA BD 009 18 
EJAD 60 


LDA 1800 
ORA HOZ 
sTaA 180090 
RTS 


FEE NE REÁ TE E IEEE IEEE JE ALIA E AE 3E E 9636 969 AE E 96 
EgAE AD 09 18 


E9B1 


09 


08 


E9B3 BD 09 18 


E9B6 


60 


LDA 1800 
ORA  $4OB 
STA 1800 
RTS 


NABET AE E EHE TEA TE AE EE E JEA AE 96 E JEE JE 36 96 
E9B7 AD 09 18 
E9BA 29 F7 
E9BC B8D 09 18 


E9BF 


60 


LDA 180900 
AND $4F7 
STA 18090 
RTS 


FEJE AL JE E JE AE AE EE E BEEE E AE TERE TEJE JE AE EE 9E E 
EJ9CO AD 90 18 
E9CS CD 00 18 
E9C6 DO FB 


E9CB 


60 


LDA 1800 
CMP 1890 
BNE E97CO 
RTS 


HERE TERE ÁE EE AE JE AE 94 JE IE AE 96 AE E AE IE JE RE AE AK E IE ALA 


E9C? 
E9CB 
E9CD 
" E9DD 
E9D3 
E9D5S 
E9D7 
E9DA 
E9DC 


EA 
E97 


E? 


FF 


LDA 408 
STA 78 
JSR EA597 
JSR E9CD 
AND 404 
BNE EJ7CD 
JSR E99C 
LDA Hoi 
JMP FF20 


legalsó bit a Carry-be 

bit magas 

DATA OUT, "ú" bitet kihozni! 
feltétlen ugrás 

DATA VUT, "1" bitet kihozni! 
a CLUCK OUT beállítása! 


a soros busz késleltetése 

a DATA OUT és a CLOCK OUT beállítása 
minden bit átvitele megtörtént? 
nem 

ellenőrzés az EOI szempont jából 
az I$C-kapu olvasása 

az adatbit leválasztása 

a következő adatbyte beolvasása 
és kiírása 

ugrás a sorbanállási ciklusra 
DATA OUT /Lo0/ 


az "1" bit kiírása 


DATA. OUT /Hi/ 
a "d" bit kiírása 


CLOCK OUT /Hi/ 
a 3. bit beállítása 


CLOCK OUT /Lo/ 75 
a 3. bit törlése 


az IEC-kapu olvasása 


várakozás 


bit-számláló, soros output 
ellenőrzés az EOI: szempont jából 
az IEC-kapu olvasása 

CLOCK IN? 

nem, várni 

DATA OUCSs "1" bit 


óra beállítása 
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E9DF 209 59 EA JSR — EA59 
EJ9EZ2 AD OD 18 LDA 180D 
EJES 29 40 AND 440 
E9E7 . DD 09. . BNE " E9F2 
E9E9 209 CD Ef JSR — E9CO 
EJEC 29 94 AND 404 
EJEE FO EF BEG . E9DF 
E9Fg DO 19 ENE EAOB 
E9F2 29 A5 E9 JSR EgA5 
E9FS5 AZ 0A LDX  §$OA 
E9F7 CA DEX 

E9FB8 DO FD BNE E9F7 
E9FA 20 9gC E9 JSR — E99C 
E9FD 20 59 EA JSR EA59 
EAOD 29 CO E9 JSR E9CO 
EAD3 29 04 AND 804 
EAB5 FO F6 HEG E9FD 
EAO7 A? 00 LDA 400 
EAB9 85 FB STA F8 
EAOB AD 09 18 LDA 1800 
EROE 49 01 EOR  HOIl 
ERA1D 4A LSR A 
EAl11 29 02 AND 402 
ER13 DO F6 BNE EAOB 
EA15 EA NOP 

EAR16 EA NOP 

EA17 EA NOP 

EAI1IB 66 85 ROR es 
ERA1A 20 59 EA JSR — EA59 
EAID 209 CO E9 JSR E9CD 
EAZO, 29 04 AND 404 
EA22 FO F6 BEOC — EAIA 
EA24 C6 98 DEC 98 
EA26 DO E3 BNE " EADB 
EAZ2Z8 20 A5 E9 JSR — E9A5 
EAZB AS5 85 LDA 85 
EAZD 60 RTS 
RAATRANRARÁAAA AA ÁLL ALLA E 9 9t 96 9E 9 9 46-JE 96 dt 
EAZE 78 SEI 

EAZF 29 07 Di JSR D197 
EA32 BO 05 BECS EA39 
EA34 BS F2 LDA F2,X 
EA36  6A ROR A 
EAZ37 BO OB BCS EA44 
EA39  A5 B4 LDA 84 
EAZB 29 FO AND  $FO 
EAZ3ZD C9 FO CMP  HFD 
EASF FO OZ BEO EA44 
ER41 A4C 4E EA JMP EAR4E 
EA44 20 C9 E9 JSR E9C9 
ER47 58 ELI 

EA4B 29 E7 CF JSR CFB7 
ER4B 4C 2E EA JMP EAZE 
ER4E  A9 00 LDA 400 
EASO BD 00.18 STA 1800 
EASZ 4C E7 ER JMP — EBE7 
EA56 4C SE EB JMP ES5B 
TEA ALÁ AE At TE EE E EE EE A AE AA 9E EE AE 9E 96 9 
EAS9  A5 7D LDA 7D 
EASB FO 06 BEC EAG3 
EASD AD 09 18 LDA 1800 
EAG6O 10 079 BPL EA6GB 
EA62 60 RTS 


ellenőrzés az EOI szempontjából 


lejárt az óra? 

igen, FOI 

az IEC-kapu olvasása 
CLOCK IN? 

nem, várni 


DATA OUT "§" bit, /Hi/ 
19 
késleltetési ciklus kb. 544is 


DATA BUT: "a" bit 7404 
ellenőrzés az EOI szempontjából 
az IEC-kapu olvasása 

CLOCK IN? 

nem, várni 


az EOI-kapcsoló beállítása 
IEC-kapu 
az adatbit invertálása 


CLOCK IN? 


a következő bit előkészítése 
ellenőrzés az EOI szempontjából 
az IEC-kapu olvasása 

CLOCK IN? 

nem 

a bitszámláló csökkentése 
minden bit átvitele megtörtént? 
DATA OUT, "d" bit /Hi/ 

adatbyte betöltése 


adatbeolvasás a soros buszról 


íráscsatorna megnyitása 
nem aktiv a csatorna? 


WRITE-kapcsoló 


alacsony? 
másodlagos cím 


OPEN-utasítás? 
igen 
várakozási ciklushoz 


a soros buszról az adatbyte beolvasása 


és beírása a pufferbe 
a ciklus elejéhez 


az IEC-kapu visszaállítása 
várakozási ciklushoz 

soros busz - főciklusához 
megtörtént az EOI vétele? 


igen 
I£C-kapu 
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EA63 AD 00 187 LDA 1800 IEC-kapu 


EA66 10 FA BPL — EA62 3 

EAGB 4C 5B EB JMP — ESBSB a soros busz főciklusához 
EAGB 4C D7 EB JMP — EB8D7 az EOI beállítása 

VALE E LEE E NEE EÁ ÁE JEE ÁE AE JE 96 3646 9É 96 9E hardver -hibáknál a LED-ek villognak, önteszt 
EAGE AZ 00 LDX HOG egyszeri villogás, Zeropage 
EA7O 2C : BYTE $2C 5 
EA71 AG 6F LDX GF X41-szeri villogás, RAM/ROM hiba 
EA73  9A TXS 

EA74 BA TSX 

EA75 A? 08 LDA 408 a LED-bit a kapun 

EA77 OD 00 1C ORA 1cC0g0 

EAZA 4C EA FE JMP FEEA LED kikapcsolása, vissza $EA7D-re 
EAZ7D 98 TYA 

EAZE 18 BEG 

EA7F 69 01 ADC 401 

EAB1 DO FC BNE — EA7F 

EAB3 88 DEY 

EAB4 DO FB BNE " EA7E 

EAB6 AD 09 1C LDA 1C00 

EAB9 29 F7 AND  $F7 LED kikapcsolása 

EABB BD 009 1C sTa 1c00 

EABE  98B TYA 

EABF 18 ELG 

EAJD 69 01 ADC HO1 

EA92 DO FC BNE EA90 késleltetési ciklus 

EA9g4 88 DEY 

EA95 DO FB BNE — EABF 

EA97 CA DEX 

EA98 10 DB BPL — EA75 

EAJA EG FC CPX $WFC . 

EA9C DO FO BNE EABE késleltetést megvárni! 
EAJE FO D4 BEO EA74 LED ismételt bekapcsolása 
VAL ÁEÁE ÁE FEE FEE JEA JEE E E JE JEE AE AE 96 HE JE 3E 46 RESET-rutin 

ERAD 78 SEI 

EAA1 DB GLH 

ERAAZ2 AZ FF LDX  HFF 

EAR4 AC 10 FF JMP — FFID usrás a rutinra 

EAA7 EB INX 

EAAB AG 00 LDY 800 

EARAA AZ 00 LDX 400 

ERAC BA TXA AB 

ERAAD 95 00 STA  00,X zeropage törlése 

EAPF EB INX 

EABO DO FA BNE " EAAC 

EABZ2 BA TXA 

EAB3  D5 00 CMP  00,X a byte törölve? 

EABS DO H7 BENE EAGE ha nem, hibajelzéshez /villogás/! 
EAB7 F6 00 INC — 090,X 

EAB9 CB INY 

EABA DO FEB BNE " EAB7 

EABC DS 909 CMP  00,X § 

EABE DO AE BNE — EAGE hiba 

EACO 94 00 STY —  00,X 

EAC2 B5 00 LDA — 09,X 

EAC4 DO AA BNE — EAGE hiba 

EAC6 EB INX 

EAC7 DO E9 BNE " EABZ2 

EAC9  E6 6F INC  6F 

EACB B6 76 STX 76 

EACD A? 00 LDA HOD 

EACF 685 75 STA 75 
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78 
60 


EA 


1C 
1C 
18 
18 


18 
18 


32. lap tesztelése 


kulk tesztelése 


ROM-hiba 


RA"! tesztelése a 7. laptól kezdve 


RAM-hiba 


RAl4-hiba 


tesztelést folytatni! 
ok 
hiba jelzéshez! 


a verem-mutató inicializálása 


LED kikapcsolása 


CALl /ATN-IN/ átbillentése 

ATN-IN általi megszakítás engedély ezése 
a B-kapu olvasása : 

az 5. és 6. bit leválasztása 

léptetés a §. és 1. bitpozicióba 
offset-B8B és Talk 249 összeadása 


TALK - egységszám 
6. bit törlése és az 5. bit beállitása 
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EB497 
EB4B 
EB4D 
EBAF 
EBS51 
EB5S3 
EB54 
EB57 
EB5S9 
EBSA 
EBSB 
EBSD 
EBSF 
EB61 
EBS3 
ER64 
EB66 
EB6B 
EB69 
EB6GB 
EB6GD 
EBGE 
EB7O 
EB72 
EB74 
EB76 
EB79 
EB7A 
EB7C 
EB7E 
EBBO 
EBB2 
EB84 
EBS85 
EBB7 
EB8?7 
EBBB 
EBB8D 
EBBF 
EB91 
EB93 
EB95 
EB97 
EB9A 
EB9C 
EB9F 
EBA1 
EBA4 
EBA6G 
EBAB 
EBAA 
EBAC 
EBAE 
EBB1 
EBBS 
EBB6 
EBBB 
EBBA 
EBBC 
EBBF 
EBC2 
EBCS 
EBC7 
EBC9 
EBCB 
ERCD 
EBCF 


FE 


02 


02 


02 


02 


02 


CB 


F2 


egységszám plusz 524 LISTEN-hez 


puffer-címek alsó byte-ja " 
felső byte a esetézet bó. 
tárolás . 

5-ös puffertár 


$A3/8A4 mutató $248-on, input-puffer 


$A5/$A6 mutató 22D5-ön, hibaüzenet-puffer 


csatorna-táblázat törlése $FF-el 


a puffer-táblázatok törlése 


az oldal-szektor táblázat törlése 


5. PulTer 
a 4. csatorna hozzárendelése 
6. puffer 


az 5. csatorna hozzárendelés 


5. csatorna WkIT$kapcsoló törlése 
4. csatorna WRITEkapcsoló beállítása 
csatornafoglaltsági-regiszter inicializálásá 
ha a bit értéke "1" - szabad csatorna! 
WRITE-kapcsoló 
READ-kapcsoló 
az 5. puffer szabad 
a pufferfoglaltsági-regiszter indosátizásádk 
P24F/8530; 16 bit, "I" - púffer fógigitt 

ti , 
"Write Protect" kapcsolók 
U0-vektor beállítása 


a csatorna-táblázat inicializálása 
lemezvezérlő inicializálása 


£65/266 mutató $EB22-n 


19-es lépéstávolság szektor-hozzárendeléssel 
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EBD1 A? 05 LDA $O5 


EBD3 85 6A STA 6A 5 olvasási kisérlet 

EBDS A9 73 LDA 475 a bekapcsolási üzenet előkészítése 
EBD7 20 Ci E6 JSR E6C1 73, "tebm dos v2.6 1541" 

EBDA A? 00 LDA HOG 1., 3. és 4. bit kimeneten 
EBDC 8D 09 18 STA 1800 az adatirány: B-kapu 

EBDF  A9 1A LDA  $IA 

EBEi1 B68D 02 18 STA 1802 az adatregiszter törlése 

EBE4 209 BO E7 JSR — E780 automatikus start ellenőrzése 
EBE7 58 É CLI 

EBEB AD 00 i8 LDA 1890 

EBEB 29 E5 AND HES a soros kapu visszaállítása 
EBED BD 09 18 STA 1800 

EBFO AD 55 02 LDA — 0255 az utasításkapcsoló magas? 
EBF3 FO 0A BEG — EBFF nem 

EBFS5 A? 00 LDA 1600 

EBF7 AD 55 02 STA 0255 az utasításkapcsoló visszaállítása 
EBFA 685 67 STA 67 

EBFC 29 46 CI JSR C146 utasítás elemzése és végrehajtása 
EDE TEÁEAEÁETE TETEJE AE AE AE At RE AE TE AE HE EE FE E AE AE TEJE AE AE várakozási ciklus 

EBFF 58 CLT 

ECOo A5 7C LDA 7€ megtörtént az ATN-jel észlelése? 
ECO2 FO 043 BEG — EC07 nem 

ECO4 A4C SEB EB JMP — ES5B IEPC-rutinhoz 

ECO7 58 CLI 

ECOB A? BE LDA  HOE 14 

ECOoA 85 72" STA 72 mint másodlagos cím 

ECOC A? 00 LDA HOD 

ECOE 85 6F STA — 6F job-számláló 

ECIO 85 70 sTaA 70 

ECI2 AG 72 LDX vér 

ECI4 BD 2B 02 LDA OZ2B,X másodlagos cím 

ECIiI7 C9 FF CMF. HFF hozzá van rendelve a csatorna? 
ECI9 FO 10 BEOC EC2B nincs 

ECIB 29 3F AND  $3F 

ECID 685 82 STA 82 csatorna-szám 

ECIF 20 93 DF JSR DF93 a puffer-szám beolvasása 

EC22 AA TAX 

EC23 BD 5B 02 LDA 025B,X égy ségszám 

EC26 29 01 AND 801 

EC28 AA TAX 

EC29 F6 6F INC 6F,X a job-számláló növelése 

EC2B C6 72 EG "72 cím /L0/ 

ECZ2D 19 E3 BPL " ECI2 keresés 

EC2F AD 04 LDY 404 puffer-számláló 

ECS1 B97 09 00 LDA — 0000,Y müködik a lemezvezérlő 

ECS4 10 05 BFL — EC3B nincs 

EC3S6 29 01 AND 4OI egységszám leválasztása 

ECSB AA TAX 

EC39 F6 6F INC oF ,X a job-számláló növelése 

ECSB 88 DEY 

ECSC 10 F35 BPL — ECS51 következő puffer 

EC3E 78 SEI 

ECSF AD 00 1C LDA 1C00 

EC42 29 F7 AND  4F7 a L4D-bit törlése 

EC44 48 PHA ; 

EC45 AS 7F LDA  7F egységszám 

EC4A7 85 8B6 STA  B6 

EC49 A? 00 LDA HOD 

ECAB 85 7F sSTA  7F 4-s megkajtó 

EC4D A5 6F LDA — 6F V-s meghajtó job-ja? 

EC4áAF FO OB BEO — ECS5C nem 

ÉCSI AS 16e LDA 1C 2-s meghajtó "Write Protect"? 
ECS3 FO 03 BEG — EC58 nem 

ECS 28.13 935 JSR DS135 4-s meghajtóhoz irányuló összes csatorna 1e- 
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MÉ KE 


Ag 


09 


02 
e 
EB 


LDX 
STX 
STA 
IMF 


408 


7F 
70 
EC6GD 
1D 
EC69 
D513 


ká [/d 


86 
7F 


B26C 
EC98B 
1C00 
380 
EC81 
ECBB 


1805 
EC98 
HAD 
1835 
BLOC 
EC98 
026D 
t10 
D26C 
1C00 
EBFF 


EA AE E 9 96 2E JE 96 96 bb dé E AL 


CF 


LDA 
STA 
LDA 
JSR 
LDA 
IJSR 


HOD 
83 
401 


zárása 
a LED-bit beállítása 


a meghajtó-szám növelése 
1. meghajtó job-ja? ; 
nem 

1. meghajtó írásvédelme? 
nem ) 
1. meghajtóhoz irányuló összes c 
zárása 


az egységszám visszaolvasása 
LED-bit 

megszakítás-számláló 

nullán? 


óra-megszakítás törlése 


óra beállítása 
a számláló csökkentése 
még nem nulla? 


újra beállítani a számlálót! 
LED bekapcsolása/kikapcsolása 
vissza a várakozási ciklushoz! 


LOAD gét. ég 
másodlagos cím nulla 
csatornát és puffert keresni! 


a puffer mutató inicializálása 
csatorna-szám 


a mutató a végén nullával egyenlő 
a puffer-szám beolvasása 


egységszám 

beírása a táblázatba 
k 

beírni a pufferbe! 
4, Z7421 kezdőcímet 
beírni a pufferbe! 
Zita 


kapcsolócímként beírni a pufferbe 
egységszámot 

sor-számként beírni a pufferbe! 
sor-szám /Hi/ 

a pufferben 

bejegyzés a pufferben 

a puffer-szám beolvasása 


a puffermutató csökkentése 


Z, mint sorvég a pufferben 
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ECEA "A? 01 LDA 4$OI 


ECEC 29 FI CF JSR — CFFI 2 x 1, mint kapcsolócím 
ECET 28 Fi CF JSR CFF1 

ECF2 29 CE C6 JSR — C6GCE bejegyzés a pufferben 
ECF5.. 99 2C BCC,- . ED23 további bejegyzés? 

ECF7 AD 72 02 LDA 0272 blokkszám /Lo/ 

ECFA "29 Fi CF JSR — CFFI a pufferben 

ECFD AD 73 02 LDA 0273 blokkszám /Hi/ 

EDVO 29 Fi CF JSR CFF1 a pufferben 

EDO3 209 59 ED JSR ED59 bejegyzés a pufferben 

7006 A? 00 LDA  4XgO 

EDOB 209 Fi CF JSR CFF1 nulla, mint végjelölés a pufferben 
EO0OB DO DD BNE ECEA megtelt a puffer? nem 

EDOD 209 93 DF IJSR DF93 a puffer-szám beolvasása 
019 0A ASL A 

ED11 ARA TAX 

EDI2 A? 90 LDA  HgOG 

ED14 95-99 STA 99,Xx puffer mutató nullán 

ED16 A9 BB LDA 488 a READ-kapcsoló beállítása 
EDI8B A4 82 LDY 82 , csatorna-szám 

EDI1A AD 54 02 SsTA 9254 ! 

EDID 99 FZ2 00 STA 90F2,Y , csatorna-kapcsoló 

ED29 A5 85 LDA ss adatbyte 

ED22 60 RTS 

JE ARE HE E AE JE AE AE E 9 EE 9E E dt AE E AA IE At 9696 996 4696 É 

ED23 AD 72 02 LDA 9272 a blokkszám /Lo/ 

ED26 29 Fi CF JSR — CFFI beírása a pufferbe! 

ED29 AD 73 02 LDA 9273 a blokkszám /Hi/ 

EDZ2C 20 Fi CF JSR — CFF1 beírása a pufferbe 

ED2F 209 59 ED JSR EDS? "Blocks free." a pufferben 
ED32 29 93 DF JSR DF93 puffer-szám beolvasása 
EDS35 0A ASL A 2-szer 

ED36 AA TAX 

EDS7 Dé6 99 DEC 99.Xx 

ED39 D6 99 DEC 99,x puffer mutató minusz 2 
EDSB A? 00 LDA  40Oo 

EBSZD 28. Ffi €CF JSR CFFi 

ED40 20 Fi CF JSR CFF1 háromszor nulla, mint programvég 
EDSS 28 Fi CF JSR CFFi1 

ED46 209 93 DF JSR DF93 a puffer-szám beolvasása 
ED49  0A ASL A 2-szer 

EDJ4A AB TAY 

ED4B B9 99 09 LDA 0999 ,Y puffer mutató, 

EDJ4E A6 82 LDX 82 

EDS59 9D 44 02 sTA 9244 ,X mint végjel 

ED53 DE 44 02 DEC 0244,Xx 

EDS6 4C OD ED JMP EDOD 

TETEJE HE E EE JE 9 JE JE JE E JE JE EE JE AE 94 IE JE JE 9E HÉ JE EE a tartalomjegyzék-sor átvitele 
ED59 Ag 00 LDY 400 

EDSB B9 Bi 02 LDA O2ZB1 ,Y egy karakter a pufferból 
EDSE 20 Fi CF JSR CFF1 az output-pufferbe 

EDő6ő1 CB , INY 

EDSZ CB IB CPY  HIB már 27 karakter? 

ED64 DO F5 BNE EDSB 

ED66 60 RTS 

FEJET JE JEE RENÉE EE AE 99690 JE BE 9E IE JE IEEE IE 9tHÉ egy byte beolvasása a pufferból 
ED67 29 37 Di JSR D137 egy byte beolvasása a pufferból 
EDGA FO 01 BEG ED6D puffer mutató nulla? 

EDGC 60 RTS 

EDőD 85 85 sTA 85 adatbyte tárolása 

ED6F A4 82 LDY 82 csatorna-szám 

ED71 B9 44 02 LDA 9244 ,9y végjel beállítása 

ED74 FO 08 BERG — ED7E nulla /LOAD £2/? 
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ED76 A? BO LDA $HBO 
ED7B 99 FZ2 00 STA 00F2,Y 
ED7B A5 85 LDA 85 
ED7D 60 RTS 
ED7E 48 PHA 
ED7F 209 EA EC JSR ECEA 
EDB2 68 PLA 
EDS3, 60 RTS 
EBEÉ RÉ E JE HE E JE EE JE FEE ÁT AE JE EA E 96 AE At AE IE 949696 96 
ED84 209 Di Ci JSR CiD1i 
EDB7 20 42 DOB JSR D042 
EDBA  A97 40 LDA 40 
EDBC BD F?9 02 STA 02F? 
EDF 28 B7 EE JSR EEB7 
ED92 A? 00 LDA 40o0 
ED94 BD 92 02 STA 0292 
ED97 20 AC CS JSR csAC 
ED9A DO 3D BNE EDD? 
ED9C A? BO LDA HOD 
EDJE §5 81 STA B1 
EDAG AD 85 FE LDA FEB8B5 
EDpA3 685 80 STA BO 
EDAS 209 E5 ED JSR EDES 
EDAB A? 00 LDA HOG 
EDAA BD F9 02 STA 02F9I 
EDAD 20 FF EE JSR EEFF 
EDBO 4C 94 Ci JMPF C194 
NEJE JE DEE JE JE EAT JE JE AE JE AE At AE JE JE AE JE JE JE At JE JE EA 
EDB3 CB INY 
EDB4 B1l 94 LDA (94) ,Y 
EDB6ó 48 PHA 
EDB7 CB INY 
EDBB Bi 94 LDA (94),Y 
EDBA 48 PHA 
EDBB Ag 153 LDY §ií3 
EDBD Bi 94 LDA (94),Y 
EDBF FO 0A BEOC EDCB 
EDCi 85 80 STA 90 
EDCS CB INY 
EDC4 Bi 94 LDA (94) ,;Y 
EDC6 85 BI STA 81 
EDC8 29 E5 ED JSR EDE5 
EDCB 68 PLA 

" EDCC 85 81 STA B1 
EDCE 68 PLA 
EDCF 85 80 STA Bo 
EDDI1 209 E5 ED JSR EDES 
EDD4 209 04 C6G JSR C6G04 
EDD7 FO CS BEG ED9C 
EDD9 AB 00 LDY 400 
EDDB Hi 94 LDA (94),Y 
EDDD 539 D4 BMI EDB3 
EDDF 209 Bó CB JSR CBBó 
EDE2 4C D4 ED JMP EDDA4 
TEJE DE ÁE JE EE TETEJE JEE ÁE AE A AE JEE AE AE AL JE AA JE 9694 E 
EDES 20 5F D5 JSR DSSF 
EDEB 20 98 EF JSR EF90 
EDEB 28 75 D4 JSR D475 
EDEE A? 00 LDA HOD 
EDFO 29 CBS D4 JSR D4CB 
EDFS 209 37 Di JSR D157 
EDFó 85 80 STA BO 
EDFB 20 37 Di JSR D157 


READ-kapcsoló beállítása 
adatbyte 


a tartalomjegyzék-sor előállítása a pufferben - 


a 
V-utasítás, "Collect" 


egységszám megkeresése az input-sorban 
a BAM betöltése 


új BAM előállítása a pefferben 


a tart. jabetöltése, első bejegyzés megkeresésé, 
megvan? 


d. szektor 


BAM 18-as sávja 
tartalomjegyzék-blokkok lefoglalása 


BAM visszaírása a lemezre 
kész, lemezstátusz előkészítése 5 


sáv és 


a szektor tárolása 
mutató az o01ldal-szektor-blokkon 


folytató-blokk? 
sáv 


és az első oldal-szektor-blokk szektora 
az oldal-szektor-blokkok lefoglalása 


sáv és szektor visszaolvasása 


a file-blokkok lefoglalása 
tart. jegyzékben az első bejegyzés elolvasása 
tartalomjegyzék vége? 


file-tipus 
7. bit magas, file lezárva? 
file-tipus nulla, BAM felírása 


az adatblokkok lefoglalása a BAM-ban 
a sáv- és szektor-szám ellenőrzése 

a blokk lefoglalása a BAM-ban 

a következő blokk olvasása 


puffer mutató nullán 
egy byte a pufferból 
sáv 

egy byte a pufferból 
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a 


2 


EDFB 85 81 STA 81 
EDFD A5 80 LDA 89 
EDFF DO 03 BNE — EEG4 
EEG1 4C 27 D2 JMP D227 
EE04 29 98 EF JSR — EF99 
EEO7 20 4D D4 JSR — D44D 
EEOA 4C EE ED JMP — EDEE 
ENE KE ÁE E AAA IEEE TE TERE KAL AE AT AE RE 3 At 94 96 969696 96 
EEOD 29 12 C3 JSR  C312 
EE10  A5 E2 LDA "EZ 
EE12 19 05 BFL — EE19 
EE14 A9 33 LDA 433 
EE16 4C CB CI JMP — CICB 
EE19 29 01 AND 401 
EE1B 85 7F STA  7F 
EEID 29 00 CI JSR — C100 
EE20 AS 7F LDA  7F 
EEZ22  0A ASL A 
EE23 AA TAX 

EE24 AC 7B 02 LDY — 027B 
EE27 CC 74 02 CPY — 0274 
EEZA FO 1A BEG — EE46 
EEZC B9 00 02 LDA — 0290,Y 
EEZ2ZF 95 12 SPA. . Á2X 
EE31 B9 01 02 LDA — 0291,Y 
EE34, 95 13 GTA.  Í5.X 
EE36 20 97 D3 JSR. — D307 
EE39 A9 01 LDA OI 
EEZB 85 80 STA 80 
EEZ3D 20 C6 CB JSR — CBC6 
EE40 29 05 FO JSR — FO05 
EE43 4C 56 EE JMF — EE56 
EE46 209 42 DO JSR — D042 
EE49 AG 7F LDX 7F 
EE4B BD 01 01 LDA — 0191,X 
EE4E CD D5 FE CMP:  FED5 
EE51 FO 03 BEN " EE56 
EES3 4C 72 D5 JMP — D572 
EES6 29 B7 EE JSR — EEB7 
EE59 A5 FF LDA  F? 
EESB AB TAY 

EESC 0A ÁBL. "A 
EESD AA TAX 

EESE AD BB FE LDA — FEBB 
EE61 95 99 STA 99,X 
EE63 AE 7A 02 LDX" "827A 
EE66 A9 IB LDA HIB 
EE6GB 20 6E C6 JSR — C66E 
EEGB AO 12 LDY 412 
EEGD AG 7F EDE ÉZE 
EEGF AD D5 FE LDA — FEDS 
EE72 9D 01 01 STA — 01091,X 
EE75 ga TXA 

EE76 OR ASL A 
EE77 mA TAX 

EE78 B5 12 ÚDA""-- 42 X 
EE7A 91 94 STA (94) ,Y 
EE7C CB INY 

EE7D B5 13 LDA "453.X 
EE7F 91 94 STA (94),Y 
EEB81 CB INY 

EEB2 CB INY 


szektor 

további blokk következik? 
igen 

csatornát lezárni! 


blokk lefoglalása a BAM-ban 
következő blokk olvasása 
tovább 


N-utasítás, "Header" 
az egységszám beolvasása 


nem egyértelmű? 


33, "syntax error" 


egységszám 

LsD bekapcsolása 
az egységszám 
2-szer 


vessző-pozició 

a név végével összehasonlítani! 
formátumszervezés ID nélkül 

ID első karakterének 

tárolása 

második karakter 


összes csatorna lezárása 


la sáv 

a lemez formálása 

a puffer törlése 

tovább az alábbiak szerint 


a BAM betöltése 
egységszám 


"A", 1541-formátum jelölése 
ok 
15. "Gb. dos. V2;6 1541" 


a BAM előállítása 
puffer-szám 


294, a lemez nevének kezdete 
puffer mutató a néven 


27 

file-név beírása a pufferbe 
18. pozíció 

egy ségszám 

"A", 1541-formátum 


2-szer 


ID, első karakter 
a pufferben 


a második karakter 
a pufferben 
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EES83 A9 52 LDA 452 ket sit 


EEB85 91 94 STA (94) ,Y a pufferben 

EE87 CB INY 

EEB8 AD D5 FE LDA FED5S gé 1541-formátum 

EEBB 91 94 STA (94) ,Y a pufferben 

EEBD AOg 02 LDY 4602 

EEBF 91 6D STA (6D),Y és a 2. pozición 

EE91 AD 85 FE LDA FES85 16 

EE94 85 80 sTA 80 sáv-szám 

EE96 20 95 EF JSkR EF95 a blokk lefoglalása 

EE99 A? 01 LDA 401 AH 

EEJE 685 B1 STA €1 szektor-ezám 

EE9D 29 95 EF ISK EF92 blokk lefoglalása 

EERO 209 FF EE JSRK EEFF BAM felírása 

EEA3 29 05 FO JSR — FO05 $6D/É6E mutató a pufferen, puffer törlése 
EEA6G AD 01 LDY 4081 

EEAB AJ FF LDA 4FF 

EERAA 91 6D STA (6D),Y 4 folytatósáv, $FF az érvényes byte-ok szára 
EEAC 20 64 D4 JSR D464 blokk felírása 

EEAF C6 Bi DEC 81 szektor-szám csökkentése, 
EEBi1 20 60 D4 J18SR D460 blokk olvasása 

EEB4 4C 94 CI JMP — C194 a lemezstátusz előkészitése 
ABEJE BEEE BEEE NE TEA NEJE ÉBE JE NEJE NEJE IE 99696 9t a BAM előállítása 

EEB7 29 Di FO JSR FOoD1 

EEBA AG 00 LDY 400 

EEBC A? 12 LDA 4ií2 18 

EEBE 91: 6D STA (6D),Y mutató a tartalomjegyzék-sávra 
EECo CB INY 

EECi 98 TYA 4 

EEC2 91 6D STA (6D),Y mutató a tartalomjegyzék-szektorra 
EEC4 CB INY 

EECS CB INY 

EEC6 CB INY 

EEC7 A? 00 LDA $00 

EEC? 85 6F STA 6F 

EECEB 85 70 s1a 70 3. byte a szektorok 24 bitjével azonos 
EECD §5 71 STA 4-A 

EECF 98 TYB byte-pozició 

EEDO 4A LSK A 

EED1 4A LSR A sáv-szám: 4 

EED2 20 48 F2 IJSR FZ24B szektorok számának betöltése 
EEDS 971 6D STA (6D),Y és beírása a BAM-ba 

EED7 CB INY 

EEDB ARA TAX 

EED? 58 SEC 

EEDA 26 6F ROL — 6F 

EEDC 26 70 ROL " 70 a bitminta előállítása 

EEDE 26 71 ROL d? 

EEEG CA DEX 

EEE1 DO F6 HNE — EED9 

EEE3 B5S 6éF LDA 6F,XxX 3 byte 

EEE5 91 6D STA (6D),Y BAM a pufferben 

EEE7 C INY 

EEES EB INX 

EEE9 EG 03 CPX HOZ 

EEEB 99 F6 BCC EEES 

EEED CO 90 CPY  $90 már a 144-es pozició? 

EEEF 99 D6 BCC EECZ nem, következő sáv 

EEF1 4C 75 DO JMPF — D075 a szabad blokkok számának kiszámítása 
FEJEKET EE IEEE ÁE E JE ER FEE AE JE AT E 3E EE E szükség esetén BAM felülírása 
EEF4 20 93 DF J8R  DF93 a puffer-szám beolvasása 

EEF7 AR TAX 

EEFB ED 5H 02 LDA 0258, X utasítás a lemezvezérlőnek! 
EEFB 29 01 AND 401 

EEFD 85 7F STA  7F az egysécezám leválasztása 
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EEFF Ad 7F LDY Ej d 


EFO1 B9 51 02 LDA 0251 ,Y a BAM változtatási kapcsoló magas? 
EFO4 DO 01 BENE — EFO7 igen 

EFO6 60 RTS 

EFO7 A9 00 LDA  HBOO zkt 

EFO9 99 51 02 STA 9251,Y a kapcsoló visszaállítása 

EFOC 209 3A EF JSR — EF3A a BAM puffer mutatójának beállítása 
EFOF AS 7F LDA 7F egységszám 

EFi11 0aA ASL A 2-szer 

EF12 48 PHA 

EF13 20 A5 FO JSR — FOA5 BAM-bejegyzés ellenőrzése 

EF16 68 PLA 

EF17 18 éLG 

EFIB 69 01 ADC 01 a sáv-szám növelése 

EF1A 20 A5 FO JSR — FOA5 a BAM-bejegyzés ellenőrzése 

EFID A5 80 LDA BO sáv 

EFIF 48 PHA 

EF20  A9 01 LDA HOL 

EF22 85 80 STA 80 l. sáv 

EF24 0A ASL A 

EF25 0aA ASL A 4-szer 

EF246 85 6D STA 6D 

EF28 209 209 F2 JSR —F220 a BAM ellenőrzése 

EFZ2B E6 80 INC 80 sáv-szám növelése 

EF2D A5 BO LDA 89 

EF2F CD D7 FE CMP — FED7 és a max. értékkel 4 1 összehasonlítás 36-tal 
EF32 909 FO BCC  EF24 ok, következő sáv 

EF534 68 PLA 

EF35 685 80 STA BO a sáv-szám visszaolvasása 

EF37 4C BA DS JMP — D5BA BAM felírása a lemezre 

FAL ÉR ÁE NET ÁÁ E BEREN TERE AE AE RE 9196 96 46 a BAM puffer-mutatójának beállítása 
EFSA 209 OF Fi JSR F10F 

EF3D AA TAX 

EF3E 209 DF FO JSR — FODF a puffer lefoglalása 

EF41 A6 F9 LDX F9 puffer-szám 

EF43 BD EG FE LDA — FEEG,X puffer-cím /Hi/ 

EF46 85 6E STA  6E 

EF48 A9 08 LDA 400 /10/ 

EF4A 85 6D STA  6D mutató a $6D/86E után 

EF4C 60 RTS 

FEE ÁE ÁE EÁ TE KE ÁE EE EREJE JE HERE JE ÁE E JEE dt 464 tart. j-hez a szabad blokkok számának betöltése 
EF4D AG 7F LDX 7F egységszám 

EF4F BD FA 02 LDA O2FA,X blokkok száma /10/ 

EF52 BD 72 02 STA 0272 

EF55 BD FC 02 LDA —  OZFC,X blokkok száma /Hi/ 

EFS8 BD 75 02 STA 0275 a tartalomjegyzék a pufferben 

EF5B 60 RTS 

FREE AE ARE NE EREJE JE JE EREJE JEE E JE AE 96-16-9E a blokkok szabad blokkok! 

EFS5C "29 Fi EF JSR EFF1 a puffer mutató beállítása 

EFSF 209 CF EF JSR EFCF a szektor bitjét a BAM-ban törölni! 
EF62" 38 SEC 

EF63 DO 22 BNE EF87 ha a blokk már szabad, akkor kész 
EFó5 Bi 6D LDA  (6D),Y BAM bitmintája 

EF67 ID E9 EF ORA — EFE9,X az X-bit beállítása 

EFGA 91 6D STA (6D),Y 

EF6C 20 88 EF JSR — EFBB BAM-kapcsoló beállítása /módosítás volt!/ 
EF6F A4 6F LDY  6F 

EF71 .18 LE 

EF72 Bi 6D LDA  (6D),Y 

EF74 69 01 ADC HOL sávonkénti szabad blokkok számának növelése 
EF76 91 6D STA (6D),Y 

EF78 A5 80 LDA 80 sáv 

EF7A CD 85 FE CMP — FEBS egyenlő 18-cal? 


e 908 


EF7D FO 3B BEG — EFBA ha igen, átmenni 


EF7F FE FA 02 INC OZFA,X a lemez szabad blokkjainak számát növelni! 
EFB2 DO 03 BNE — EFB7 

EFB4 FE FC 02 INC O2FC,X blokkok számának növelése /Hi/ 

EFB7 60 RTS 

FRETEJE TEJE NEEE TE JEE ÁE JE TET ATÁE JEE AE AE átt a BAM-kapcsoló beállítása /módositás történt/ 
EFBB AG 7F LDX 7F egy ségszám 

EFBA A? 01, LDA $01 

EFBC 9D 51 02 STA  09251,X a kapcsoló - 1 

EFBF 60 RTS 

HÉA JE ÁE E 9E Et 94 at at 44 9E AE At At AE AE AL JE JE A At 4 363 a blokk lefoglalása k. 

EF90 209 Fi EF JSR EFF1 a puffer mutató beállítása 

EF93 29 CF EF JSR — EFCF a szektor-bit törlése a BAM-ban 

EF96 FO 36 BERG" EFCE ha már foglalt, kész 

EF98 Bi 6D LDA  (6D),Y 

EFJA 5D E9 EF EOR — EFE9,X a blokk-bit törlése 

EF9D 91 6D STA (6D),Y 

EF9F 29 BB EF JSR EFBB BAM-kapcsoló beállítása 

EFAZ2 A4 6F LDY  6F 

EFA4 Bi 6D LDA  (6D),Y 

EFAG 38 SEC 

EFA7 E? 01 SBC 401 sávonkénti blokkok számának csökkentése 
EFA9 91 6D STA (6D),Y 

EFAB A5 80 LDA 80 sáv 

EFAD CD 85 FE CMP — FEBS5 18? 

EFBO FO OB BEG EFBD tartalomjegyzék-sávot kihagyni! 

EFB2 BD FA 02 LDA — O2FA,X szabad blokkok száma /Lo/ 

EFB5 DO 03 BNE — EFBA 

EFB7 DE FC 02 DEC D2ZFC, X szabad blokkok számának csökkentése 
EFBA DE FA 02 DEC — O2FA,X 

EFBD BD FC 02 LDA O2FC,X szabad blokkok száma /Hi/ 

EFCO DO OC BNE EFCE több mint 255 szabad. blokk?-, 

EFC2 BD FA 02 LDA — OZFA,X szabad blokkok száma /Lo/ 

EFCS C9 03 CMP. HOZ A 
EFC7 BO 05 BECS EFCE 3-nál kisebb? új 
EFC9  A9 72 LDA 472 

EFCB 29 C7 E6 JSR E6C7 72; "vasak ftuüli 

EFCE 60 RTS 

KENE DEE TETEJE TETEJE JEE JE TEJE JE JE ÁE JE JE 963636 3E IK i a szektor bít törlése a sáv BAM mezőjének 
EFCF 209 11 FO JSR — FO11 megkeresése 

EFD2 98 TYA 

EFD3 85 6F STA — 6F 

EFD5 A5 81 LDA 81 a szektort 

EFD7  4A LSR "a 

EFDB 4A LSR A 8-cal osztani! 

EFD9  4A LSR. A 

EFDA 38 SEC 

EFDB 65 6F ADC — 6F 

EFDD AB TAY byte-szám a BAM-bejegyzésben 

EFDE A5 81 LDA 81 szektor-szám 

EFEg 29 07 AND 407 

EFE2 AA TAX bit-szám a BAM-bejegyzésben 

EFE3 Bl 6D LDA  (6D),Y byte a BAM-ban 

EFES 3D E9 EF AND — EFE9,X a szektor-bit törlése /foglalt!/ 

EFEB 60 RTS 

FEE TETTE E E JE TE TE EE 9E TE E HE JEE EE 94 9H96-46 9 második hatványok /négyzetek/ 


EFE9 01 02 04 08 10 20 49 80 


ATR AE AE AAL AE AE AE AE JEE 9996 EE IEEE változtatás után a BAM felírása 
EFF1 A? FF LDA WHFF 

EFFJ 2C F? 02 BIT 02F? 

EFF6 FO OC BEC Fo0o4 

EFFB 10 0A BPL FOop4 
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Fow4 
4OD 

02F? 

DS8A 


EFSA 
Hao 


(6D) ,Y 


FOOB 


6F 


6F 


eF 
FODF 
7F 


A 
029B,X 
801 


EFFA 70 08 EVS 
EFFC A? 00 LDA 
EFFE BD F9? 02 STA 
FOG1 4C BA DS IMF 
FOO4 60 RTS 
RARA RA RA AAL AE AL AE E ALA JE JE AL A AE JE AE 9696 9 
FOS 20 3A EF ISR 
FOOB AD 00 LDY 
FO0gA 98 TYA 
FOGOB 91 óD STA 
FOGD CB INY 
FOGE DO FB BNE 
FO1g 60 RTS 
TERÁE TE EE JE E AE EA AE AE E AE At At AL FE AE At E 96 AE At E 96 96 Át 
FO11 AS 6F LDA 
FO13 48 PHA 
FO14 AS 70 LDA 
FO1i6 48 PHA 
FOL7 AG 7F LDX 
FO19 BS FF LDA 
FOLIB FO 05 BEN 
FOID A? 74 LDA 
FOIF 29 48 E6 IJSR 
FO22 209 OF Fi IJSR 
FO25 85 6F STA 
FO27 BA TXA 
FO28  0A ASL 
FO29 85 70 STA 
FOZB AA TAX 
FOZC A5 80 LDA 
FOZE DD 9D 02 CMP 
FOZ31 FO OB BEG 
FO33 EB INX 
FOZ34 B6 70 STX 
FO346 DD 9D 02 CMP 
FO39 FO 03 BEG 
FOZB 20 5B FO JSR 
FOZE A5 70 LDA 
FO40 AG 7F LDX 
FO42 9D 9B 02 sTA 
F045  0A ASL 
FO46  0A ASL 
FO47 18 CLe 
FO48 69 Al ADC 
FO4A 85 6D STA 
FO4C A? 02 LDA 
FO4E 49 00 ADC 
FO5O 85 6E STA 
FO52 Ag 00 LDY 
FOS54 68 PLA 
Fos5 85 70 STA 
FO57 68 PLA 
FO58 85 6F STA 
FOSA 60 RTS 
At NEEE NEE AE dt Ab At 96NE IE ÁE AE 94 AE At At 9É JE AE At 96 96 db 44 46 
FO5SB AG 6F LDX 
FOSD 29 DF FO JSR 
FOGG A5 7F LDA 
FO062 AA TAX 
FO63  0A ASL 
FO64 ID 9B 02 ORA 
FO67 49 01 EOR 
F069 29 03 AND 


sos 


a kapcsoló visszaállítása 
a blokk felírása 


a BAM-puffer törlése 


$6D/$6E mutató a BAM-pufferen 


BAM-puffer törlése 


egység szám 
nulla? 


"drive not ready" 
a BAM-puffer számának beolvasása 


sáv 


egységszám 


4-szer 


egységszám 
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FOGB 
FOGD 
Fo70 
Fo72 
F075 
F074 
F076 
FO77 
Fo78 
FO7A 
Fo7C 
FO7D 
FO7E 
FO7F 
FO81 

Fo84 
FOo86 
FOo88 
FOoBA 
FOBB 
Fo8C 

FOBE 
FOo90o 
Fo92 
Fo94 

FOo97 

FO9gA 
FOo9C 


FO9F 
FORA1 
FOR4 


FoaS 
FOAG 
FOA9 
FORAB 
FOAC 
FORE 
FOB1 
FOB3 
FOB4 
FOB5 
FOBó 
FOB7 
FOBB 
FOBA 
FOBB 
FOBC 
FOBD 
FOBE 
FOCI 
FoC5 
FoCc5 
FOCB 
FOCA 
FOCB 
FOCC 
FOCE 
FODO 


FOD1 
FoD5 
FoD4 
FopD5 
FOD7 
FoDA 


a5 
F? 


99 


9D 


Fo 


02 


02 


02 


02 


02 


02 


STA 
JSR 
LDA 
AsSL 
TAX 
LDA 
ASL 
ASL 
STA 
LDA 
ASL 
ASL 
TAY 
LDA 
STA 
LDA 
STA 
INC 
INY 
TYA 
AND 
BNE 
LDX 
LDA 
STA 
LDA 
BNE 
JMP 


ORA 
STA 
RTS 


TAY 
LDA 
BEC 
PHA 
LDA 
STA 
LDA 
ASL 
TAX 
PLA 
ASL 
ASL 
STA 
TYA 
ASL 
ASL 
TAY 
LDA 
STA 
LDA 
STA 
INC 
INY 
TYA 
AND 
BNE 
RTS 


LDA 
ASL 
TAX 
LDA 
STA 
INX 


F9 puffer-szám 


80 sáv 


A 4-szer 
99,Xx a BAM-mezőn álló mutatóval azonos 


(99,x) nulla a pufferben 
99,x a puffer mutató növelése 


80 sáv 


D58A blokk felírása 


gs puffer-szám 
A 2-szer 


(99,Xx) írás a pufferbe 


99,Xx a puffer mutató növelése 


7F egy ségszám 
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. FODB 9"D 9D 02 STA 029D,X 


FODE 60 RTS 

FODF B5 A7 LDA  A7,X 

FOE1 C9 FF CMP. 4FF 

FOE3 DO 25 BNE — F1gA 

FOE5 ga TXA 

FOE6 48 PHA 

FOE7 29 BE D2 JSR — DZBE 

FOEA AA TAX 

FOEB 109 05 BPL FOoF2 

FOED - A9 70 LDA 470 

FOEF 29 CB CI JSR — CICB 76, "no channel" 

FOF2 86 F9 STX F9 

FOF4 68 PLA 

FOF5 AB TAY 

FOF6 BA TXA 

FOF7 09 80 ORA  HBO 

FOF9 99 A7 00 STA — 00A7,Y? 

FOFC BA ASL A 

FOFD AA TAX 

FOFE AD 85 FE LDA FES85 18, tartalomjegyzék-sáv 

FIg1 95 06 STA  06,X tárolása 

F103 Ag 00 LDA HOG 

F105 - 95 07 STA 07 ,Xx szektorként 

FI107 4C B6 D5 IMF D586 blokk felírása 

FIOA 29 OF AND  HOF 

FIOC 85 F9 STA F9 puffer-szám 

FIOE 60 RTS 

AAN AETR TE RE TE BEEE EZER JE JE 9 JE JE JE 9 3E9E a BAM puffer-számának beolvasása 
FIOF A9 06 LDA 406 

Fii11 AG 7F CDx 7F egységszám 

F113 DO 03 ENE — F118 

FiI1S-4B LE 

Filó 69 07 ADC 407 4. meghajtóra 13-at ad 

F118B 60 RTS 

AEDETE EE NE ENE JE EE JE BEEE JE 9 E JE JEE JEE 96 9E 46 At a BAM puffer-száma X után 

F119 209 OF Fi IJSR F1OF a puffer-szám betöltése 

FiIIC AA TAX 

FIID 60 RTS 

FENE JE TEJE TEJRE AE JE E EHE E ARE EE AE 9E AE E 3E AE szabad blokk keresése a BAM-ban, lefoglalása 
FIIE 209 3E DE IJ5R DEZE Aa sáv- és a szektor-szám beolvasása 
Fí21 A9 03 LDA HOZ 

Fi23 685 6F sTA oF számláló 

F125 A9 01 LDA HOL 

F127 OD F9 02 ORA  — 02F9 

FI2A BD F9 02 STA  OZ2F9 

FIZD AS5 6F LDA eF a számláló tárolása 

FI2F 498 PHA 

F130 208 11 FO JSR FO11 ehhez a sávhoz megkeresni a BAM-mezőt! 
F133 68 PLA 

F134 685 6F sTa 6F a számláló visszaolvasása 

F136 Bi 6D CBA  (é4DI NN sáv szabad byte-jainak száma 
Fi38 Do 539 BNE F173 vannak még szabad blokkok? 

Fi3A AS 80 LDA 80 sáv 2 

FISC CD 85 FE CMP FEBS 18, tartalomjegyzék-sáv 

FI3F FO 19 BEC Fi15A igen, "disk full" 

Fi141 90 1C BCC F15F ha kisebb, akkor a következő alacsonyabb sáv 
F143 E6 80 INC 89 sáv-szám növelése 

Fi145 A5 89 "/ LDA 89 

F147 CD D7 FE CMPF — FED7 36, legmagasabb sáv-szám plusz egy 
Fi4A DOEI BNE F12D nem, ezen a sávon tovább keresni 
F14C AE 85 FE LDX FEg85 18, tartalomjegyzék-sáv 
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Fi4F CA DEX a csökkentett értéket 


F150 686 80 STX 80 sáv-számként tárolni! 

F152 A9 00 LDA 400 

Fi54 685 81 sTA 81 a szektor-szám kezdőértéke nulla 

Fi56 C6 6F DEC 6F számlálót csökkenteni, ha 

FISB DO D3 BNE F12D még mindig nulla, tovább keresni! 

Fi5A A9 72 LDA 472 

FIi9gC 29 CB CI JSR C1i1C8B 62, "disk full" 

FISF C6 BO DEC 80 sáv-szám csökkentése 

FI61 DO CA. BNE F12D ha még mindig nulla, ezen a sávon keresni! 
F163 AE 85 FE LDX FE85 18, tartalomjegyzék sáv - 
Fli66 EB INX a növelt értéket 

F167 86 80 STX 80 sáv-számként tárolni 

F169 A? 00 LDA $0gg 

FIGB 85 Bi sTA 81 szektor kezdőértéke: nulla 

FIGD C6 6F DEC eF "számláló csökkentése 

FiGF DO BC BNE F12D ha még mindig nulla, tovább keresni! 
Fí71 FOE7 BEC F15A egyébként "disk full" 

F173 AS. 81 LDA 81 szektor-szám 

Fí175 18 LE 

F176 65 69 ADC 69 plusz /18/ lépéstávolság 

Fí178 §85 81 sSTA 381 mint új szám 

Fíi7A A5 80 LDA 80 sáv-szám 

FI7ZC 20 4B F2 JSR F24B behozni a maximális szektor-számot! 
F17F BD 4E 02 STA 024E 

F1g2 8D 4D 02 STA — 024D és tárolni! 

Fig5 C5 81 CMP. 81 nagyobb mint a megválasztott szektor-szám? 
Fi187 BO OC BCS F195 igen 

Fi1g9 38 SEC egyébként 

FIBA AS 81 LDA 81 szektor-szám 

FI8BC ED 4E 02 SBC 0924E minusz a maximális szektor-szám 

FI8BF 85 81 STA 81 Uj szektor-számként tárolni! 

F191 FO 02 BEG F195 nulla? 

F193 Cé6 81 DEC 81 egyébként a szektor-számot 1-gyel csökkenteni! 
F1i95 20 FA FI JSR FIFA BAM-ot ellenőrizni, szabad szektort keresni! 
FiI98 FO 03 BEG — F19D nincs meg? 

FIJA 4C 98 EF JMF — EF9D BAM-ban lefoglalni a blokkot! 

FI9D A? 00 LDA 4OGO 

FíI9F 85 81 sra 81 nulla szektor 

FiIAL 29 FA FI JSR Fi1FA szabad szektor keresése 

FiA4 DO F4 BNE F19Aa megvan? 

FiA6 4C F5 FI JMPF FiíFS nincs, "dir error" 

ÁDER TE TE É HETE TE E TERE TETEL BE JE KERETE 9E At szabad szektor keresése és lefoglalása 
FIA? A? 01 LDA Oi 


FIAB OD F9 02 ORA 02F? 
FIAE BD F9 02 STA 02F?7 


FIB1 A5 B6 LDA  8B6 

FIB3 48 PHA 

FIB4 A9 01 LDA HOI sáv-számláló 

F1B6 85 86 STA 86 

FIBB AD 85 FE LDA FE85 18, tartalomjegyzék-sáv 

FIBB 38 SEC 

FIBC ES5 86 SBC 86 minusz számláló 

FIBE 85 BO SsSTA 80 sáv-számként tárolni! 

FICg 90 09 BCC F1CB az eredmény kisebb nullánál? 

FIC2 FO 07 BEG F1CB ha igen a tart. jegyz. fölött keresni! 
F1C4 20 11 FO JSR FO11 a BAM-mező megkeresése ehhez a sávhoz 
FIC7 Bi 6D LDA  (6D),Y szabad blokkok száma? 

FIC9 DO 1B BNE F1E6 vannak szabad blokkok? 

FICB AD 85 FE LDA — FEB85 18, tartalomjegyzék-sáv 

FICE 18 ELÉ 

Fí1CF 65 86 ADC 86 plusz számláló 

FIDi1 85 80 STA 80 sáv-számként tárolni! 

FiD3 E6 86 INC B6 számlálót növelni 

FIDS CD D7 FE CMP FED7 36, maximális sáv-szám plusz egy 
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FIDB 99 05 BCC F1DF 
FIDA AT 67 LDA 467 
FIDC 20 45 E6 JSR E645 
FIDF 28 11 Fő JSR FGi1 
FI1E2 Bi 6Db LDA (6D),Y 
FIE4 FO DZ2 BEO F1B8 
FIEó 68 FLA 

F1E7. - 85 86 STA 86 
FIE97 A? 00 LDA HOD 
FIEB §5 81 STA 81 
FIED 20 FA Fi JSR F1FA 
FIFO FO OS BEG Fi1F5 
FIF2 4C 90 EF JMP EF99 
FIFS A? 71 LDA 471 


FIF7 20 45 E6 JSR E645 


TEJET ÁE EALER ÁE RE BE E 9E EE ÁE EREJE AE 44 94-46 
FIFA 209 11 FO JSR FO11 


FIFD 9B TYA 
FIFE 498 PHA 
FIFF 20 20 F2 JSR F220 
F202 A5 80 LDA g0 
F204 20 4B F2 JSR F24B 
F20g7 B8D 4E 02 STA 024E 
F20A 68 PLA 
F2OB 85 6F sTA 6F 
FZ2OD A5 81 LDA 81 
F2OF CD 4E 02 CMP 023E 
F212 BO 09 BECS F21D 
F214 209 DS5 EF JSR EFDS 
F217 DO 06 BNE F21F 
F219 Eé 0681 INC 81 
F21B DD FO ENE F20OD 
F21D A? 00 LDA HOD 
F21F 60 RTS 
TEA ÁRÁT EE TEÁT ETET TE TETÉ ÉBE E 9E AE 9 99 
F2209 A5 6F LDA 6F 
F222 48 PHA 
F22 A7 00 LDA HOD 
229 85 éF STA 6F 
F227 AC Bó FE LDY FEB6 
F22A 88 DEY 
F228 AZ 07 LDX 407 
Fz2z2D Bi 6Db LDA (6D),Y 
Fzzt SD E? EF AND EFE9,X 
F252 FO 02 BEG F256 
F234 E6 6F INC 6F 
F236 CA DEX 
F257 18 F4 BPL F22D 
F25 88 DEY 
F25A DO EF ENE F22B 
F23C Bi 6D LDA (6D),Y 
F23E CS 6éF CMPF 6F 
F240 DO 04 ENE F246 
F242 68 PLA 
F243 §5 6F STA 6F 
F24a5 60 RTS 
F24ó A? 71 LDA 471 
F248 209 45 E6 JSR E645 
TED E BE BETE DEN BE TÉT ÉE RE AE AE E ÉTÉ TE AE 99 E 99 
F24B AE D6 FE LDX FED6 
F24E DD D6é FE CMP FED6.X 
F251 CA DEX 


ha kisebb, ok 


67, "illegal track or sector" ! 
BAN-mezőt keresni ehhez a sávhoz 
szabad blokkok száma? 

nincs már szabad blokk? 


2. szektor 

szabad blokkot keresni! 

nincs 

lefoglalni a blokkot a BANM-ban! 


Vesd. SZTrOL" 


szabad blokk keresése az aktuális sávon 
ehhez a sávhoz BAl-mezőt keresni 
a szabad blokk számát jelzi 


BAlM-ot ellenőrizni 

Báv 

behozni a sáv maximális szektor-számát 
tárolni! 


a mutató tárolása 

a szektor 

összehasonlítása a maximális számmal 
nagyobb vagy egyenlő? 

a szektor bit-szémának beolvasása 
szabad szektor? 

szektor-számot növelni! 

és ellenőrizni, hogy szabad-e 

nincs szabad szektor 


szabd blokkok számának ellenőrzése a BAM-ban 


számláló nullán 
4, sávonkénti byte-ok száma a BAM-ban 


a bit leválasztása 


szabad szektor esetén a számláló növelése 


összehasonlítása a lemezen levő szektor- 
számmal 
hay nem egyenlő, hiba! 


Tis "ait error" 

sávonkénti szektorok szémának meghatározása 
4 különböző érték 

sáv-szám 
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F252 BO FA BECS F24E 
F254 BD Di FE LDA FED1,X 
F257 60 RTS 

F2S58B 60 RTS 

ÁREREÁÉBE ÉBE ÁT ÁE 3E at AE IE At AE HE AE E AE At at JE 9E 9494 9636 
F259 A9 6F LDA tH6F 
F25B B8D 02 1C sTA 1c02 
F2SE 29 FO AND $FO 
F260 BD 09 1C STA 1C00 
F263 :AD OC 1C LDA 1CoC 
F266 29 FE AND HFE 
F268 09 BE ORA  4OE 
F26A 09 ED ORA HED 
F26C BD OC 1C STA 1CEC 
F2zéF A? 41 LDA 4H$41 
F271 BD OB 1C STA 1COB 
F274 A? 00 LDA 400 
F276 BD 06 1C STA 1C06 
F279 A? SA LDA $3A 
F27B BD 07 1C STA 1C07 
F27E BD 05 1C STA 1c05 
F28B1 A? 7F LDA §7F 
F283 G8D OE 1C STA 1C0E 
F286 A9 CO LDA HCD 
F288 B8D OD 1C STA 1CoD 
FZ2ZBB B68D BE 1C STA 1C0gE 
F2GE A? FF LDA  HFF 
F299 85 3E sTa SE 
F2y2 95 51 SsTA 51 
F294 A? 08 LDA HO8B 
F296 05 59 sTA 39 
F298 A9 07 LDA 4O7 
F29A 85 47 STA 47 
F29C A9 05 LDA HOS 
F297E 85 62 sTA 62 
F2AD  A7 FA LDA 4§FA 
F2A2 85 653 STA 63 
F2A4 A9 CB LDA HCB 
F2A6G 85 64 STA 64 
F2AB A9 04 LDA 404 
F2AA 85 SE STA SE 
F2AC A? 04 LDA 404 
F2AE 85 5F sTA 5F 
HERE ÁE EE E AE NEJE AE 9E At JE IE AE EE JE TE AE AE AE E AE EE JE 9E 
F2BO BA TSX 

F2B1 86 49 STX 49 
F2B5 AD 04 1C LDA 1C04 
F2B6 AD OC 1C LDA 1CoC 
F28B? 09 GE ORA  HOE 
FZ2BB 8D 0€£€ 1C STA 1COoC 
FZ2BE Ap 05 LDY 405 
F2CO B9 00 00 LDA 0000 ,Y 
F2CS 10 2E BFL F2F5 
F2CS CI DO CMF  HDO 
F2C7 DO 04 BNE- F2CD 
F2C9 98 TYA 

F2CA 4C 70 FS JMP F370 
F2CD 29 81 AND 401 
F2CF FO 07 BEG F2D8B 
F2D1 84 3F STY sF 
FZ2DS A? OF LDA HOF 
F2Dő 4C 69 F? JMP F969 


még mindig nagyobb? 
a szektorok számának betöltése 


inicializálás 
a 4. bit /drite Protect/ és 7. /SYNC/ bemenet 
B-kapu az adatirány-regiszter 


B-kapu, vezérlőkapu 
PCR, ellenőrzőregiszter 
4 


az IRC-k törlése 
IER, megszakítások lehetségesek 


sáv-számláló formáláshoz 
8 

blokk-fejléc állandói 

7 

adatblokk állandói 


£62/263 mutató $FAO5-ön 
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IRO-rutin a lemezvezérlőhöz 
verem-mutató tárolása 


timer megszakítás-kapcsoló törlése 


YI puffer feladata? 

nem 

a programkódot a pufferben kell kialakítani? 
nem 


programot a pufferben futtatni! 


az egységszám leválasztása 
nullás egység? 


ha nem, 
74, "aáarive not ready" 
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F9 


F9 


F? 


F? 


FS 


F9 


"E 


FE 


jár a motor? 
igen 
a meghajtóegység motorjának bekapcsolása 


a kapcsoló beállítása 
a job-ciklushoz 


a fejpozicionálás programozva? 
job-ciklushoz 


a következő puffer ellenőrzése 
jdb -ciklushoz 


fejpozicionálást programozni! 


a puffer-számláló inicializálása 
mutató beállítása 

van a puffer számára feladat? 
számláló csökkentése 

következő puffer ellenőrzése 
puffer-szám 

mutató beállítása a pufferre 


mint a fejpozicionálás számlálója 
fejpozicionálás kapcsolójának beállítása 
sáv-szám beolvasása a pufferból 
job-ciklushoz 


egységszám leválasztása 
egyenlő az utolsó job meghajtóegység számával? 


nem 
utolsó sáv-szám 
egyenlő nullával? 


egyenlő a job sáv-számával? 
igen 


egységszám 

további ellenőrzés 

job sáv-szám 

tárolása 

összehasonlítása a maximális sáv-számmal 
nagyobb? 


sávonkénti szektor-szám beolvasása 
és tárolása 


sáv-tartomány száma, 32-szer 
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F353 685 44 STA 44 4-t, 32-t, 64-t, 96-t ad 


F355 AD 09 1C LDA 1COoD 

FI50 29 9F AND  $H9F 

F35A 05 44 ORA 44 a motor vezérlő-byte generálása 
FSSC 8D 09 1C sSTA 1Coo 

F35F A6 3D LDX 3D 

F361 A5 45 LDA 45 utasításkód 

F363 C9 40 CMP 440 mágnesfejet pozicionálni? 

F365 FO 15 BEG — F37C igen 

F367 C9 60 CMP 460 program utasításkódját a pufferben futtatni? 
F369 FO 03 BEG F36E igen 4 

F3GB 4C "Bi F3 JMP  FZBI olvasni a blokk-fejlécet! ú 
FEB TE E TETEJE NEE TETEJE JE RE E JEE JE TEJE JE JEA 4E JEE IE program futtatása a pufferben 

F36E A5 3F LDA 3F puffer-szám 

F379 18 CEE 

FS371 69 03 ADC HOZ plusz 3 

F373 685 531 STA 31 

F375 A9 00 LDA 4OO egyenlő a puffer címével 

FS77 83 309 STA 30 

F379 6C 309 00 JMP (09030) program futtatása a pufferben 

MEA ÁL JE E E AE AE RE AE IE JEE 94 AE JE EREJE JE EHE AE At At mágnesfej pozicionálása 

F37C A? 60 LDA 460 

F37E 85 20 STA 20 fejpozicionálás kapcsoló beállítása 
F380 AD 09 1C LDA 1Co0o 

F383 29 FC AND $FC léptetőmotorok bekapcsolása 

F385 BD 09 1C STA 1Coo 

F388 A? A4 LDA HAM 164 

F38A 85 4A STA — 4A fejpozicionálás léptetés-számlálója 
F38C A9 01 LDA HOL 

FSGE 685 22 sTA sat sáv-szám 

F390 4C 69 F?9 JMP F969 ok 

FEE EE TEJE NEJE JEE JE JE JEE JE JE JE JE JE 36 94-96 9E a mutató inicialízálása a pufferben 
F393 A43F LDY 3F puffer-szám 

F395 B9 00 00 LDA — 0000,Y utasításkód 

F398 48 PHA tárolása 

F399 19 18 BPL F3AB 

F39B 29 78 AND $78 Ú, 1, 2. és 7. bit törlése 

FS397D 85 45 sTA 45 

F39F 98 TYA puffer-szám 

F3AD  0A ASL A 2-szer 

F3AL 69 06 ADC HOG plusz 6 : 

F3A3 685 32 STA 32 egyenlő az aktuális pufferen álló mutatóval 
F3A5 98 TYA puffer-szám 

F3A6G 18 CLC 

FSA7 69 03 ADC HOZ plusz 3 

FSA7 85 51 STA 531 egyenlő a puffer-címmel /Hi/ 

F3AB AD 00 LDY 400 

F3AD 84 30 sTY 350 puffer-cím /Lo/ 

F3AF 68 PLA utasításkód visszaolvasása 

FSBO 60 RTS 

NETBE TE ÉE EE TE TE EJ 9E IE JE JE JEE JE JE JE JE AE JE IE 9E A blokk-fejléc olvasása, ID ellenőrzése 
FS3B1 A25A LDX  §5A 9 

F3B3 86 4B $TX  4B számláló 

F3B5 A2 00 LDX  4OOo 

FSB7 A? 52 LDA 452 82 

FSB9 685 24 sTA 24 

FSBB 20 56 F5 IJSR F556 megvárni az SYNC-t 

FSBE 598 FE BVC F3BE Byte Ready? 

FSCg  B8 CLV 

F3C1 AD 01 1C LDA 1C01 adatok az olvasófejtől 

FS3C4 CS 24 CMP 24 

FSCó DO SF BNE . F407 24, "read error" 

F3C8 50 FE BVC F3CB Byte Ready? 
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FSCA B8B CLV 


F3CB AD 01 1C LDA — 1C01 adatbyte a lemezről /blokk-fejléc/ 
FZ3CE 95 25 STA 25.X 7 byte tárolása 

FS3DO EB INX 

F3D1 ED 07 CPX HOZ 

FZD3 DO F3 BNE F3C8 a beolvasás folytatása 

F3DS 20 97 F4 JSR — F497 

F3DB AG 04 LDY 404 4 byte plusz paritás 

F3DA A? 00 LDA 400 

FSDC 59 14 09 EOR 0916,Y a. fejléc ellenőrző összegének kialakítása 
F3DF 88 DEY 

F3Eg 19 FA BPL —F3DC 

F3E2 C9 00 CMP  4OD rendben van a paritás? 

F3E4 DO 38 BNE F41E 27, "write error" 

F3EG A6 3E LDX 3E egységszám 

F3EB A5 18 LDA 18 fejléc sáv-száma 

F3EA 95 22 STA 225X aktuális sáv-számként átvenni! 
F3EC A5 45 LDA 45 

F3EE C9 30 CMP. 430 "fejlécet átvenni" kód 

F3FO FO IE BEG F410 fejlécet átvenni! 

F3F2 A5 3E LDA  3E 

F3F4 0A ASL A 

F3FS5 AB TAY 

F3Fó B9 12 00 LDA — 0012,Y 

F3F9 C5 16 CMP 16 ID1 ellenőrzése 

F3FB DO IE BENE — F41B 

FS3FD B9 13 00 LDA — 0013,Y 

F400 CS 17 CMP 17 ID2 ellenőrzése 

F4092 DD 17 ENE — F241B ha nem egyenlő, akkor 29,"disk id mismatch" 
F404 40C 23 F4 JMP  F423 

F407 C6 4B DEC 4B keresés-számláló csökkentése 
F409 DO BO BNE " F3BB és mégegyszer megpróbálni! 
F40B A9 02 LDA 402 egyébként 

F4OD 209 69 F? IJSR F969 26, "read error" 

FEE ÁE TEJE AE TEJE JER TERE ÁE JE JE 9 AE AE EE 3E 963436 9E 96-96-96 a blokk fejlécének beolvasása 
F410  A5 16 LDA 16 ID1 

F412 685 12 STA 12 

F4t14 A5 17 LDA 17 ég ID2-t 

F416 685 13 STA í3 átvenni! 

F418 A9 01 LDA Oi ok 

F41A 2C . BYTE $2C 

F41B A? OB LDA HOB 29, "disk id mismatcn" 

F41D 2C - BYTE $2C 

F41E A9 09 LDA HO? 27, "write error" 

F41D 2C A9 09 BIT — 0949 

F4A2B A4C 69 F? JMP F969 lezárás 

HALÁLLAL AE E At AE 9 BEAT At A 94 E 9 JE 9 96 At 9E IE IE 3É 9694 9t-3é 

F423 AJ 7F LDA  $7F 

F425 85 4C STA  4C 

F427 A5 19 LDA 19 

F429 18 CLC 

F4A2A 69 02 ADC 402 

F42C C5 43 CMP 43 

F42E 90 02 BCC  F432 

F430 E5 43 SBC 43 

F432 85 4D sTA  4D 

F434 AZ 05 LDX 4Og5 

F436 B63F BÍX SE 

F438 AZ FF LDX  $HFF 

F4A3A 209 93 F3 ISR F393 a lemezvezénlő puffermutatójának beállítása 
FA3D 10 44 BFL — F483 

F43F 685 44 STA 44 

F441 29 01 AND 401 

F443 C5 3E CMP  3E 
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F445 
F447 
F449 
F44B 
F44D 
F44F 
F451 
F453 
F455 
F457 
F458 
F45A 
F45C 
F45E 
F45F 
F461 
F463 
F465 
F466 
F468B 
F46A 
F46B 
F46D 
F46F 
F471 
F473 
F475 
F477 
F478 
F47A 
F47C 
F47E 
F47F 
F481 
F483 
F485 
F487 
F488 
F48A 


F48D 
F48F 
F492 
F494 


F497 
F499 
F49A 
F49C 
F49D 
FáagF 
F4A1 
F4A3 
F4A5 
F3A7 
F4A9 
FAAC 
F4ARE 
F4BD 
F4B2 
F4B4 
F4B6 
F4BB 
F4BB 
F4BD 
F4ABF 
F4C1 


DO 
Ap 
B1 
cs 
Do 
As 
C9 
Fo 
Ag 
38 
B1 
ES 
10 
18 
65 
cS 
BO 
48 
AS 
Fo 
68 
cg 
90 
C9? 
BO 
e5 
A5 
AA 
69 
8s5 
Do 
68 
[DA 
99 
C6 
10 
sa 
10 
4C 


86 
20 
AS 
4c 


AS 
48 
AS 
48 
A9 
ess 
Ag 
es 
A97 
85 
20 
AS 
es 
AS 
85 
AS 
85 
20 
AS 
85 
AS 
85 


FS 


F4 


7 


F7 


utasításkód 


job-eiklushoz 


a puffer-szám beolvasása 
utasításkód 
az ellenőrzés folytatása 


a £34/£31 mutató tárolása 


8£34/831 mutató $24-en 
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FAC3 68 FLA 


F4C4 85 31 STA 81 

F4C6 68 PLA ks ölté 
szelt ette a UTÁ ág a 836/8231 mutató visszatöltése 
F4C9 60 RTS 

VE ÁE EA át 96 JEE A At 96 HE AE AE At AE AE AE At At E AE At At dé 96 dé dt 

F4CA C? 00 CMP 4HOD "olvasás" utasításkód? 

F4CC FO 03 . BEG F4D1 ígen 

F4CE 4C 6E F5 JMP FS6E tovább ellenőrizni az utasításkódot! 
F4Di1 209 0A FS IJSR F50A megkeresni az adatblokk kezdetét! 
F4D4 50 FE BVC F4D4 Byte Ready? 

F4D6 B8 CLY 

F4D7. AD 01 1C LDA 1C01 adatbyte beolvasása 

F4DA 91 30 STA (30) ,Y a pufferbe 

F4ADC CB INY 256-szor 

F4DD DO F5 BNE F4D4 

F4DF AD BA LDY HBA 

F4E1 50 FE BVC F4E1 Byte Ready? 

F4E3 BB CLV 

F4E4 AD 01 1C LDA 1Cg1 byte olvasása 

F4E7 99 09 01 STA 9100,Y $1BA-tól $l1FF-ig 

F4EA CB INY 

F4EB DO F4 BNE F4E1 

F4ED 29 Eg FB IJSR FB8EO 

F4FO  A5 38 LDA 38 

F4F2 CS 47 CMP 47 7-tel egyenlő, adatblokk kezdete? 
F4F4 FO O5 BEO F4AFB igen 

F4F6 A9 04 LDA 404 22, "reád error" 

F4FB A4C 69 F9 JMP F969 hibalezárás 

F4FB 20 E? F5 JSR. .- FSE? adatblokk paritásának kiszámítása 
F4FE CS 3A CMF 3zaA egyezik? 

F5g0 Fo oz BEG FSo5 igen 

F502 Aa9 05 LDA HOS 222 "road. error" 

F504 2C A9 01 , BET 0109 ok xy 
F507 4C 4649 F? JMP  F969 hibaüzenet előkészítése ) 
JER JE TETEJE EE JE 9 AE JE JE EE E JE E AE EJ JE IE AE az adatblokk kezdete 

FsoA 28 10 F5 IJSR F510 blokk-fejléc olvasás 

FSOD 4C Sé F5 JMP F556 kívárni az SYNC-t 

JEE EE JE E JEE JE JE EE JE JE JE AE AE JE JE 9 AE IE JE JE JE 9496 96 a blokk-fejléc olvasása 

Fsi1g AS 3D LDA 3D egységszám 

F512 0oA ASL A 

F513 AA TAX 

FSi4 86 12 LDA 18.X LÍH 

FS16 85 16 STA 16 tárolása 

F5i18 B5 13 LDA í8ex ID2 

FsiA 858 17 STA 17 tárolása 

FSIC Ag 00 LDY 400 

ÉSIE Bi 32 CDA (3214Y sáv 

Fs5209 §5 18 sTA 18 

FS2Z2 CB INY 

FS2S3 Biz LDA K(32),Y a szektor-szám beolvasása a pufferból 
FS525 §5 19 STA 19 

F527 A? 00 LDA HOD 

FS29 45 16 EOR 16 

FSZB 45 17 EOR 17 a blokk-fejléc paritásának kiszámítása 
FS2D 45 198 EOR 18 

FSZF 45 19 EOR 19 

FS31 685 1A STA 1A és tárolása 

FS3IS5 29 54 F? JSR F934 

Fs36 A2 5A LDX  $5A 99 kisérlet 

FSZ38 20 56 F5 JSR F556 kivárni az SYINC-t! 

FS3B Ag 00 LDY 4gO 
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FS3SD 50 FE BVC FS3D Byte Ready? 


FS3F B8 ELV 

F540 AD 01 1C LDA — 1C01 adatok olvasása a blokk-fejlécből 
FS543 D9 24 00 CMP 0924,Y összehasonlítás a tárolt adatokkal 
F546 DD 06 BNE — F54E ha nem egyenlő mégegyszer megkisérelni! 
F548 CB INY 

F549 Co 08 CPY  HOB megtörtént 8 byte olvasása? 

FS4B DO FO BNE — F53D nem 

FS4D 60 RTS 

F54E CA DEX a számláló csökkentése 

FS4F DO E7 HNE F538 még nem nulla? 

FsS5i1 A9 02 LDA HOZ 

FSS53 4C 69 F? JMP F969 20, "read error" 

TERE TEJE RE TEEE A ÁE REAR JE 9E AE TE JEE JE AE AE At 4E 96969 megvárni az SINC-t! 

F556 Ag DO LDA $DO 248 

Fssa8 98D 05 18 sTA 1805 az óra indítása 

FSSB A? 03 LDA $03 hibakód 

F5S5D 2C 05 18 BIT 1895 

F560 10 Fi BPL. Fs553 ha az óra lejárt, 21, "read error" 
FS62 2C 09 1C BIT 1€00 SYINC-jel 

F5635 30 F6 BMI F55D még nincs meg? 

F567 AD 01 tE LDA 1C01 byte olvasása 

Fsen B8 CLV 

FSG6B AD 00 LDY  $OOo 

FS56D 60 RTS 

TEJE AA Át A AHÁ A At A AA 9 EE Át AE DEE AE EÁ AE AE AE 96 ét 

F56E C9? 19 CMP 419 írás-utasításkód 

F570 Fo oc3 BEG — F575 igen 

FS72 4C 91 Fé JMP — F691 az utasításkód további ellenőrzése 
TEÁT TERE NE ALÁ AE 34 RE EA 969696 9E adatblokk felírása a lemezre 

F575 20 E9 F5 JSR — F5SE? a puffer paritásának kiszámítása 
F578 85 3A STA 3A és tárolása 

F57A AD 09 1C LDA 1C00 B-kapu olvasása k 
FS7D 29 19 AND 410 a "Write Protect" bit leválasztása 
F57F DO 05 BNE — F586 nincs beállítva, ok 

FSBi A? 08 LDA 4Oo8 

F5B3 4C 69 F9 JMP — F969 26, "write protect on" 

F5B6 20 8F F7 JSR — F7BF 

F589 20 10 F5 JSR  F510 a blokk-fejléc megkeresése 

FSEC AZ 09 LDX 409 

FSS8E 58 FE BVC FS8E Byte Ready? 

Fs599  B8 CLV 

F591 CA DEX blokk-fejléc utáni 9 byte átolvasása 
F592 DO FA BNE — F58E 

F594 A? FF LDA §FF 

F596 BD 93 tC STA — 1C03 "A"-kaput /író-/olvasófej/ kimenetre 
F599 AD 0C€ 1C LDA 1C0gC 

F3s9C 29 1F AND  $IF 

F5S9E 09 CO ORA $CB PCR-t outputra átkapcsolni! 

FSAG B68D OC 1C STA 1CoC 

FSAZ3 Ag FF LDA $HFF 

FSAS5 A2 05 LDX 405 

FSA7 BD 01 1C STA 1C01 $FF 5-szöri felírása a lemezre 
FSRAA B98 CLY 

FSAB 50 FE BVC — FSAB SYNC-jelként 

FSAD B8 CLY 

FSAE CA DEX 

FSAF DÓ FA BNE  F5AB 

FSB1 Ag BB LDY  HBB 

FSBS B? 09 01 LDA — 0100,Y $1BB - $1PF byte-ok a lemezen 

FSB6 50 FE BVC F5B6 

F5BB B8 CLY 
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F5B9 BD 01 1C STA — 1C01 
FSBC CB INY 

FSBD DO F4 BNE — F5B3 
F5BF Bi 309 LDA (39),Y 
FSC1 50 FE BEVC F5CI 
FSC3 B8 CLV 

F5C4 BD 01 1C  . STA- . 1CBI 
F5C7 CB SS TNY § 
F5CB DO FS TEDSBNE- FSBF 
FSCA 50 FE BVC — F5CA 
FSCC AD OC 1C LDA — 1C9C 
F5CF 099 E0 ORA HEG 
F5D1 8D 0C 1C STA — 1CXC 
FSD4 A? 00 LDA HOO 
F5Dó BD 03 1C STA " 10cC03 
FSD9 209 F2 F5 JSR — F5F2 
FSDC A43F LDY  3F 
FSDE B? 99 90 LDA — 9000,Y 
F5Ei 49 30 EOR 430 
F5E3 979 09 00 STA — 0000,Y 
F5E6 4C Bi F3 JMP  F3BI 
TEN E ÁE AE AE TAL AE AÉ 9694 IE 9E 9E E JÉ JE At E 9 JE Ata 969 
FSE9 A9 00 LDA 400 
FSEB AB TAY 

FSEC 51 30 EOR (30),Y 
FSEE CB INY 

FSEF DO FB BNE — F5EC 
FSF1 60 RTS 

F5F2 A? 00 LDA 400 
FSF4 685 2E STA  2E 
FSFó6 685 30 sTA 30 
FSFB 85 4F 8TA  4F 
FSFA A5 31 LA 51 
F5FC 85 4E STA — 4E 
F5FE A? 01 LDA 01 
F6gO 85 31 sra 31 
F602 85 2F STA  2F 
F6g4 A? BB LDA HBB 
F606 685 34 sTA 34 
FGOB 85 36 STA 36 
FGOA 20 EG F7 JSR — F7E6 
FGOD A5 52 LDA 52 
F6GOF 85 38 sTA 38 
Foll1 A4 36 LDY 36 
F613 A5 53 LDA 53 
F615 91 2E STA (2E),Y 
F617 CB INY 

F618 AS 54 LDA 54 
F6G1A 91 2E STA (2E),Y 
F61C CB INY 

Fői1D A5 55 LDA 55 
F61F 91 2E STA (2E),Y 
Fe21 CB INY 

F622 84 36 STY 36 
F624 20 EG F7 JSR — F7E6G 
F627 A4 36 LDY 36 
F629 A5 52 LDA 52 
FOZB 91 2E TA (2E)GY 
FO2D CB INY 

FO2E A5 53 LDA 53 
F6G30 912 STA (2E),Y 
F632 CB INY 

FO33 FO O0E BEG — F643 
FO35 A5 54 LDA 54 
F637 91 2E STA .(2E),Y 


adatpuffer /256 byte/ felírása a lemezre 


Byte Ready? 


PCR ismét inputon 


"A"-kapu /író-/olvasófej/ bemeneten 


írás-utasításkódot "Verify"-re átalakítani! 


adat-puffer paritásának kiszámítása 
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55 
(2E),Y 


5 


9199 ,Xx 
(390) ,Y 


F685 
50 


h20 
F698 
F6óCA 


FSE? 
3A 
F78F 
FSOA 
$BB 
9199 ,Y 
F6AB 


1C01 
FoeCS 


F639 CB INY 
FóoSA A5 55 LDA 
Fé3C. 91 2E STA 
"FS3E CB INY 
FS3F "84 36 STY 
Fő4i D8-Ei BENE 
F643 A5 54 LDA 
F645 91 30 STA 
F647 CB INY 
F648 AS 55 LDA 
FG4A 91 30 STA 
F6G4C CB INY 
F64D 84 36 STY 
FS4F 28 Eé F7 JSR 
FGS5S2 A4 36 LDY 
FóS54 AS 52 LDA 
FS56 9?i 59 STA 
Fó58 CB INY 
F6G59 AS 53 LDA 
FG5SB 91 39 STA 
FSSD CB INY 
FGSE A5 54 LDA 
F66O 91 50 SsTA 
Fé62 CB INY 
F663 AS 55 LDA 
F665 91 50 STA 
F667 CB INY 
Fó6GB 84 36 STY 
FóG6A CO BB CPY 
F66GC 908 EI BCC 
F6ő6E A? 45 LDA 
F670 85 2E STA 
F672 AS 531 LDA 
F674 85 2F STA 
F676 AG BA LDY 
F67B Bi 50 LDA 
F6ó7A 91 2E STA 
F67C 88 DEY 
F67D DO F? BNE 
F67F Bi 50 LDA 
FóBDIi 9i 2E STA 
F68B3 AZ BB LDX 
F6ó85 BD 09 01 LDA 
FóBB 91 30 STA 
Fó8BA CB INY 
F6BB EB INX 
FéBC DO F7 BNE 
FGBE 86 50 STX 
F690 60 RTS 
ANAL A IEEE JEE EE E E EE JE JEA 944 AE 969 46 
F691 C9 29 CMP 
F693 FOoOZ BEG 
F695 4C CA F6 JMP 
FS98 28 E? F5 JSR 
FG9B 85 3A SsTA 
FéYD 29 GF F7 JS8R 
FGAB 29 0A F5 JSR 
FGAZ3 AG BB LDY 
F6GAS B? 00 01 LDA 
FéAg 50 FE BVC 
FGAA B8 CLV 
FGAB A4D 01 1C EOR 
FSAE DA 15 BNE 
F6BO. CB INY 
F6éB1 DO F2 BNE 


F6GA5S 


"Verify utasításkód"? 
igen 
utasításkód ellenőrzését folytatni! 


az adatpuffer paritásának kiszámítása 
és tárolása 


adatblokk kezdetének megkeresése 


adatok a pufferból 
Byte Ready? 


összehasonlítani e lemezről származó adatokkal! 
ha nem egyenő, hiba! 
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F6B3 Bi 30 LDA (30) ,Y 
F6BS 50 FE BVC — F6BS5 
F6B7 B8 CLV 

FőBB A4D 01 1C EOR — 1C01 
F6BB DO 08 BNE — F6C5 
F6BD CB INY 

F6BE CO FD CPY HFD 
FGCO DD F1 BNE — FőB3 
F6C2 4C 18 F4 JMP  F418B 
F6CS5 A? 07 LDA  4O7 
F6C7 4C 69 F? JMP — F969 
FEET ÁE BE JE Ab E JE JE AE HÉ JE E AE AE E JÉ JE AE AE JÉ JE JE 9 át 949 
FOCA 20 10 F5 JSR — F510 
FGCD 4C 18 F4 JMP. F418 
TEA TEAT E A AE TEA AE E AE 9 HE JE JEA At AL JE HE ALA AE AE AE 
F6DO A? 00 LDA OO 
F6D2 85 57 STA 57 
FéD4 85 SA STA  5A 
F6D6G A4 34 LDY 34 
FéDA A5 52 LbAa- 52 
F6DA 29 FO AND 4FO 
F6DC 4A LSR A 
F6DD 4A LSR A 
F6GDE  4A LSR A 
F6DF  4A LSR A 
F6GEG AA TAX 

F6Ei1 BD 7F F7 LDA — F77F,X 
F6GE4  0A ASL A 
F6GE5  0A ASL A 
F6EG  0A ASL A 
F6GE7 85 56 STA 56 
F6E9 A5 52 LDA . 52 
F6GEB 29 OF AND HOF 
FGED AA TAX 

FGEE BD 7F F7 LDA — F77F,X 
F6F1i 6A ROR A 
F6F2 66 57 ROR 57 
FoF4  6A ROR A 
F6GF5 66 57 ROR 57 
F6F7 29 07 AND 407 
F6F9 05 56 ORA 56 
F6GFB 91 30 STA (30) ,Y 
F6GFD CB INY 

FGFE A5 53 LBA " 85 
F700 29 FO AND $FOB 
F702  4A LSR A 
F703 4A LSR A 
F704  4A LSR A 
F705  4A LSR A 
F706 AA TAX 

F7O7 BD 7F F7 LDA. " F77F,X 
F7OA  0A ASL A 
F7OB 05 57 ORA 57 
F7OD 85 57 sTA 57 
F7OF AS 53 LDA 53 
F711 29 OF AND HOF 
F713 AA TAX 

F714 BD 7F F7 LDA — F77F,X 
F717 2A ROL A 
F71g 2A RÖL A 
F719 2A ROL A 
F71A 2A ROL A 
F71B 85 58 STA 58 
F71D 2A ROL A 


adatok a pufferból 


összehasonlítani a lemezről származó adatokkal! 
ha nem egyenlő, hiba! 


hibamentes lezárás 


295 "WYité error" 


blokk-fejléc olvasása 
kész 


a felső Nibble leválasztása 


mint index a táblázatban 


8-szor 


alsó Nibble leválasztása 
mint index a táblázatban 


a pufferben 
a puffer mutató növelése 


felső Nibble leválasztása 


indexként a táblázatban 


alsó Nibble 
mint index 
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F71€ 
F720 
F722 
F724 
F725 
PT27 
F729 
F72A 
F72B 
F72C 
F72D 
F72E 
F731 
F732 
F735 
F755 
F757 
F738 
F759 
F73B 
F75D 


F73F 


F741 
F742 
F745 
F746 
F747 
F749 
F74B 
F74D 
F74F 
F751 
F752 
F753 
F754 
F755 
F756 
F759 


F7SA. 


F7SC 
F7SD 
F7an 
F760 
F762 
F764 
F766 
F768 
F769 
F76B 
F76D 
F76F 
F771 
F775 
F774 
777 
F779 
F77B 
E77€ 
F77E 


VA 


58 
30 


80 
59 
54 
oF 


TE 


7C 
59 
59 
55 
Fo 


7F 


5A 


3A 


5A 
03 
59 
50 


04 
2E 
31 
55 
OF 


7 
5A 
30 


34 


Ég 


F? 


F7 


adá 


AND 
TAX 
LDA 
ORA 
STA 
INY 
STY 
RTS 


(390) ,Y 


34 


FEJES TETEJE 996 he at ae AE JE TE AE AE E JE ALTE JE TERÉZ 
F77F BA BB 12 15 BE OF iá 17 
09 19 14a 1B 00 1D IE 15 


F787 


VENEDEA TE TE AE AA 3E At A JE EA JE JE JE AE At JE IE JE AE HE IE IEEE 


F78F 


A? 


00 


F791 85 30 


LDA 
STA 


400 
30 


a puffer mutató növelése 


Hi-Nibble leválasztása 


a puffer mutató növelése 


alsó Nibble 
indexként 


Hi-Nibble leválasztása 


indexként a táblázatban 


a puffer mutató növelése 


alsó Nibble 
indexként 


a puffer mutató növelése 
és tárolása 
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F793 
F795 
F797 
F799 
F79B 
F79D 
F79F 
F7A1 
F7A3 
F7A5 
F7A7 
F7A9 
F7AB 
F7AD 
F7AF 
F7BO 
F7B2 
F7B4 
F7B5 
F7B7 
F7B9 
F7BA 
F7BC 
F7BF 
F7C1 
F7C3 
F7C5 
F7C6 
F7C8B 
F7CA 
F7CC 
F7CD 
F7CF 
F7D1 
F7D2 
F7D4 
F7D6 
F7D7 
F7D9 
F7DB 
F7DD 
F7DF 
F7E1 
F7E3 


F7E6 
F7EB8 
F7EA 
F7EC 
F7ED 
F7EE 
F7EF 
€7Éi 
F7FS 
F7F5 
F7F6G 
F/F7 
é7F? 
F7FA 
F7FC 
F7FE 
F800 
F802 
F804 
F806 
FBOo7 
F808 


Fé 


F6 


STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
sIA 
LDA 
sSTA 
LDY 
LDA 
SsTA 
INY 
LDA 
SsSTA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
BEG 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
BNE 
LDA 
SsTA 
LDA 
SsTA 
STA 
JMP 


LDY 
LDA 
AND 
LSR 
LSR 
LSR 
sTaA 
LDA 
AND 
ASL 
ASL 
STA 
INY 
BNE 
LDA 
STA 
LDY 
LDA 
AND 
ROL 
ROL 
ROL 
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F8097 
FBOB 
F8OD 
FBOF 
FB11 
F8B12 
FB14 
FB16 
FB18 
FB19 
FB81A 
FB1B 
F8B1LC 
FBIE 
FB1F 
Fg21 
F823 
F824 
F825 
F826 
F827 
F8B29 
FB2B 
FBZD 
FBZF 
F830 
Fg32 
F833 
Fes5 
F837 
F838 
F839 
F83A 
FB3C 
FS83E 
FB40 
FB42 
F844 
F845 
FB846 
F848 
F84A 
F84C 
Fg4D 
F84E 
F84F 
F851 
F852 
F854 
FB56 
F858 
F85SA 
FB5C 
FBSE 
F8SF 
F860 
F861 
F862 
FB64 
FB66 
F8B68 
FB6GA 
FB6C 
FB6D 
FBőF 
F871 
F874 


57 
57 
s0 
SE 


58 
50 
01 


59 


50 
Fo 


59 
59 
30 
oF 


SA 


30 
80 


01 
5A 
sa 
so 
7C 


53B 
30 


a. 


5c 


06 
4E 
31 
4F 
30 
Eg 


5c 
5c 
30 
1F 
SD 


s4 
56 
Ap 
57 


Fe 
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F876 ID CO FB ORA — FBCO,X 
F879 85 52 STA 52 
FB7B A6 58 LDX 58 
F87D BD Ag F8 LDA — FBAD,X 
FBBO AG 59 LDX 59 
F882 1D CO F8 ORA — FBCOD,X 
Fegs5 85 53 sra 53 
F887 AG 5A LDX  5A 
F889 BD Ag FB LDA — FB8AD,X 
FBBC AG 5B LDX  5B 
FBBE ID CO FB (ORA —FBCO,X 
F891 85 54 e8TA 54 
F893 AG 5C LÖXN 56 
F895 BD AG FB LDA — F8AR,X 
FB898 AG 5D LDX. 5D 
F8gA 1D CO FB ORA — FBCD,X 
FB89D 85 55 sSTA 55 
FB9F 60 RTS 

AE IEEE E FE ÁE EAT AE JEA EREJE AE At AE JE IE NE JE tt 3696 A 
FBAR FF FF FF FF FF FF FF FF 
FB8AB FF 89 09 19 FF CO 49 50 
F8BO FF FF 209 30 FF FO 60 70 
FBBB FF 90 AG BO FF DO EB FF 
FBCO FF FF FF FF FF FF FF FF 
FBCB FF 08 00 01 FF OC 04 05 
FBDO FF FF 902 03 FF OF 06 07 
FBDB FF 09 0A OB FF BD BE FF 
AAA At TEAT RÉRE AE 9E AE 9 E 9E ELET 949496 3646 
FBEG A? 00 LDA 400 
FBE2 85 34 sTa 34 
FBE4 85 2E sSTA  2E 
FBE6 85 36 STA 36 
FBEB A? 01 LDA 4Xi 
FBEA 85 4E STA — 4E 
FBEC A? BA LDA  $BA 
FSEE 85 4F sSTA  4F 
FeFOg  A5 31 Lpa. 31 
F8F2 85 2F STA  2F 
F8F4" 29 E6 F7 JSR — F7E6 
F8F7 A5 52 LDA 52 
FéF? 85 58 STA 38 
F8FB A4 36 ÜDV. 34 
FBFD  A5 53 LDA 53 
FBFF 91 2E STA (2E),Y 
F9901 CB INY 

F992 A5 54 LDA 54 
F904 91 2E STA (2E),Y 
F996 CB INY 

F997 A5 55 LDA 55 
F909 91 2E STA (2E),Y 
F9OB CB INY 

F90C 84 36 STY 36 
F90E 29 E6 F7 JSR —F7E6 
F911 A4 36 LDY 36 
F913 A5 52 LDA. : 52 
F915 91 2E STA (2E),Y 
F917 CB INY 

F919g FO 11 BEN — F92B 
F91A A5 53 LDAÁ 53 
F91C 91 2E STA (2E),Y 
F91E CB INY 

F91F A5 54 LDA 54 
F921 91 2E STA (2E),Y 
F923 C8 INY 

F924 A5 55 LDA 55 


ez2 


F926 
F928 
F929 
F92B 
F92D 
F92F 
F931 
F953 


F934 
F936 
F938 
F93A 
F93C 
F93E 
F940 
F942 
F944 
F946 
F948 
F94A 
F94C 
F94E 
F950 
F953 
F955 
F957 
F959 
F95B 
F95D 
F95F 
F961 
F964 
F966 
F968 


F969 
F96B 
F?6E 
F970 
F972 
F975 
F978B 
F97A 
F97B 


FT7ZE 
F980 
F982 
F985 
F987 
F98BA 
F98C 
F9BE 


F98F 
F991 
F993 
F995 
F997 
F999 
F99B 


F99C 
F99F 
F9A2 
F9A5 


4 A 
Cc8 
Do 
A5 
es 
AS 
aes 
60 


AS 
85 
A? 
es 
A97 
85 
AS 
ss 
A5 
es 
AS 
85 
AS 
e5 
20 
AS 
ss 
aA5 
85 
A? 
ss 
85 
20 
A5 
85 
60 


A4 
99 
AS 
FO 
29 
20 
A6G 
9A 
4c 


Ag 
s5 
AD 
09 
eD 
A? 
85 
60 


A6 
AS 
097 
85 
A9 
85 
60 


AD 
ap 
AD 
29 


52 


F6 


F6 


00 


F5 
F? 


F2 


1C 


1C 


1C 
1C 
1C 


49 a verem-mutató visszatöltése 


HO4 a meghajtó-motor kikapcsolása 


410 "Write Protect"? 
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1E 
1E 
F9B1 
hoi 
1c 
O2FE 
F9CB 
422 
F9C1i 
4Ooo 
O2ZFE 
F9CB 
4A 
402 
O2FE 
FAZE 


3E 
F9D6 
20 


420 
F9D9 
FABE 


48 
F9FA 


F9E4 
$7F 
20 
410 
F9FA 
1Co0o 
$FB 
1Co0 
$FF 
3E 
400 
20 
F9D6 


440 
FAOZ 
FABE 


(90062) 


a meghajtóegység motorja BE 


$62/263 mutató $FA3B-n 


$62/263 mutató $FA7B-n 
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FAZ2ZC 85 65 sTA 63 


FAZE A5 4A LDA — 4A mágnesfej-pozicionálás léptetés-számláló jának 
FA3O 109 31 BPL FAG3 

FASZ E6 4A INC 4A növelése 

FAS4 AE 09 1C LDX 1Cgo 

FAS7 CA DEX j J ta 

FASB 4C 69 Fa JMP FA6G? Jeg és 

TELE JE REÁ AE JE A At AE JE IE JE JE JE AE IE AE 3E IE JE AE 9E AE JE JEE AE j áj 

FAZ3B A5 4A LDA — 4A fejpozicionálás léptetés-számlálója 
FAS3D DOEF HBNE FAZE még nem nulla? jú 

FAS3F A? 4E LDA 4$4E 

FA41 685 62 STA 62 

FA43  A9 FA LDA  HFA 862/863 mutató ZFA4E-n 

FA45 85 65 STA 635 

FA47 A? 05 LDA 405 

FA49 85 60 STA 60 mutató 5-ön 


FA4B 4C BE FA JMP FABE 


TEJE JEE NE FEE HE JE JEE ÁE ÁE IE ÁL IE IE E JE IE JE JE JEE AE 964646 


FA4E C6 60. DEC — 60 számlálót csökkenteni! 
FASO DO 6C BNE — FABE még nem nulla? 

FASZ A5 20 LDA 209 

FAS54 29 BF AND  $BF 6. bit törlése 

FA56 685 20 sra 20 

FASB A? 05 LDA 405 

FASA 85 62 STA 62 

FA5C A? FA LDA - HFA £62/263 mutató $FAO5-ön 
FASBE 85 63 STA 63 

FAGO  4C BE FA JMP — FABE 

NÁLÁNÁL ETET NER E EBEÉ JE RE 9E RE JEE 9 At a fejpozicionálás léptetés-számláló- 
FAG63 C6 4A DEC — 4A jának csökkentése 

FAGS ARE 09 1C LDX 1Cg9 

FAGB EB INX 

FAGY BA TXA 

FAGA 29 03 AND 403 

FAGC B5S 4B STA — 4B 

FAGE AD 00 1C LDA — 1C00 

FA71 29 FC AND $FC 

FA7S 05 4B ORA 4B léptetőmotor KI 


FA75 AD 09 1C SsTA 1Co0 
FA7ZB 4C BE FA JMP FABE 


JEREÁE ENE ÁE ÁE IE A At AE 9 AE AE E IE AE ÁÁ JE AE AE AE JE 96 969696 


FAZB 38 SEC 
FATC AD 07 1C LDA — 1C9g7 

FA7F E5 5F SBC  5F 

FABI 8D 05 1C STA — 1cC05 

FAB4 C6 60 DEC 60 számlálót csökkenteni! 
FAB6 DO OC BNE — FA94 még nem nulla? 

FABB A5 SE LDA  5E 

FABA 85 60 STA 60 számlálót újra beállítani! 
FABC A9 97 LDA 497 

FABE 85 62 STA " 62 

FA90g. A? FA LDA $FA 862/863 mutató $FA97-en 
FA92 85 63 sTA 63 


FA94 4C 2E FA JMP FAZE 


VALDE ÁE JE ÁEH JE 94 AE JE JE AA E JE 94 E AE JE IE AE HE 36 E 


FA97 C6 61 DEC 61 
FA99 DO F9 BNE — FA94 

FAJB A? A5 LDA §$A5 

FA9D 85 62 STA 62 

FA9F A? FA LDA  4FA 862/863 mutató $FAA5-ön 
FAAL 85 63 GTA 65 

FAA3 DO EF BNE — FP94 
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TREE ÁE JE ÁE ÁE ÁE TE TE EREJE JEE TEJE JE IE AE AHH AK 
FAAS5 AD 07 1C LDA 1C07 


FAAB 18 ELLE 

FAB9 65 5F ADC 5F 

FAAB BD 05 1C STA — 1C05 

FARE C6 60 DEC 60 a számláló csökkentése 

FABO DO EZ BNE " FAJA még nem nulla? 

FABZ2 A9 4E LDA $4E 

FAB4 85 62 STA SZ 

FAB6 AY FA LDA  $HFA $62/$63 mutató $FA4E-n 

FABB 85 63 sTA 63 

FABA A9 05 LDA 405 

FABC 85 60 SsTA 60 mutató 5-ön 

FABE AD 0C 1C LDA — 1COC 

FACI 29 FD AND $FD az 1. bit törlése 

FAC3 BD OC 1C STA — 1COC 

FAC6 60 RTS 

TEREM ÁE EALER RE 9E At 96 RE AE AE JE JEE At EA At E 96 A 9 96 formálás 

FAC7 A5 51 LBA 81 sáv-szám 

FACI9 109 2A BPL  FAF5 folyamatban van már a formálás? 
FACB A6 3D LDX 3D egységszám 

FACD A? 60 LDA H6óO fejpozicionálási kapcsoló 

FACF 95 20 STA  29,X beállítása 

FAD1 A9 01 LDA HOL 

FADS3 95 22 STA  22,X célsáv beállítása 

FADS5 85 51 STA 51 sáv-sorszám a formáláskor 

FAD7 A? A4 LDA HAM 164 

FAD9 85 4A STA 4A fejpozicionálás léptetés-számlálója 
FADB AD 09 1C LDA — 1C0g0 

FADE 29 FC AND  HFC léptetőmotor BE 

FAEg BD 00 1C STA — 1CO0B 

FRE3 A9 0A LDA  §4HOA 19 

FAES BD 29 06 STA 9620 hiba-számláló 

FREB A? AB LDA HAD £621/8622 - 4848 

FAEA BD 21 06 STA 0621 sávkapacitás meghat. miatt inicializálás! 
FAED A? OF LDA  HOF 4498 — kapacitás 224404 byte 
FAEF BD 22 06,  STA 0622 

FAF2 4C 9C F? JMP F99c vissza job-ciklusba 

FAF5 AO 90 LDY  4OO 

FAF7 Di 32 CMP (329 ,Y 

FAF9 FO 05 BEOG — FBOO 

FAFB 91 32 BŰN. HS2IgY 

FAFD 4C 9C F9 JMP — F99C job-ciklushoz 

FBOg AD 00 1C LDA — 1C00 

FBO3 29 10 AND 410 "Write Protect"? 

FBO5 DO 05 BNE — FBOC nem 

FBO7 A9 0B LDA HOB 

FBO9 4C D3 FD JMP — FDD3 26, "write protect on" 

FBOC 20 A3 FD JSR — FDA3 a $FF kód felírása lemezre 14248-szer 
FBOF 29 C3 FD JSR  FDC3 / 6621/2622/-szer a $FF kód felírása a lemezre 
FBI2 A9 55 LDA 455 655 

FB14 BD 01 1C STA — 1C01 

FBI7 209 C3 FD JSR — FDC3 és /£621/8622/-szer a lemezre 
FBIA 209 00 FE JSR FEO0O olvasásra átkapcsolni 

FBID 29 56FS — JSR  F556 óra bekapcsolása, $FF /SINC/ megkeresése 
FB20 A? 40 LDA 440 

FB22 OD OB 18 ORA — 180B Tíimer 1 

FB25 BD OB 18 STA — 180B 

FB28 A9 62 LDA 462 98 ütemciklus, kb. $,1 ms 

FB2A BD 06 18 STA — 1806 

FBZ2D A9 00 LDA 400 

FBZ2ZF 8D 07 18 STA — 1897 d 

FB32 OD 05 18 sTA 1805 az Óra indítása 
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oo 1C 


09 1C 


04 18 
09 1C 


OD 18 


D3 FD 


04 18 


OD 18 


D3 FD 


számláló nullán 


megvan a SXINC? 

nincs várni! 

megvan a SYNC? 

megvárni a SYNC-tartomány végét! 

az óra megszakítás-kapcsoló visszaállítása 
megvan a SYNC? 5 ; 

nincs vége a SYNC tartománynak /855/? 
megszakítás-kapcsoló regiszter 


az óra még nem járt le 
számláló növelése 


számláló Hi-byte-jának növelése 


ha tulcsordulás, hiba! 
20. "rend. errór" 


a számláló állása - a £55 tartomány időtartama 


tárolás 


a számláló ismét nullán 


a Timer 1 megszakítás-kapcsoló visszaállítása 


megvan a SINC? 
igen 
megszakítás-kapcsoló regiszter 


óra-kapcsoló a 7. bit után! 
nem, megvárni az óra lefutását 


a számláló növelése 


ha tulcsordulás, hiba 
24, "read error" 


a számláló állás /£55/ 

és a $FF-tartomány értéke közötti 
különbséget 

£74/871 mögé vinni! 


pozitiv különbség? 
a különbség abszolút értékének kiszámítása 
4 x Ú,1 ms-nál — kisebb a különbség? 


igen 


megkétszerezni a különbséget! 


hozzáadni a 4994 kiindulási értékhez! 
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FBBO 
FBBS 


FBB6 
FBB8 
FBBA 
FBBB 
FBBE 
FBCO 
FBC2 
FEBCS 
FBC4 
FBC6 
FBC7 
FBC? 
FBCB 


FBCE 
FBCF 
FBDO 
FBDS 
FBD4 
FBD5 
FBD8 
FBDA 
FBDD 
FBEO 
FBE2 
FBES 
FBE7 
FBE? 
FBEA 
FBEB 
FBEE 
FBFO 
FBF1 
FBF2 
FBF35 
FBF5 
FBF7 
FBFB 
FBFA 
FBFB 
FBFE 
FCOoD 
FCo3 
FCo4 
FCo5 
FCOo7 
FCoB 
FCoA 
FCOB 
FCOE 
FC1IO 
FC12 


FCci5 
FC16 
FC17 
FC19 
FCIA 
FC1C 
FCIE 
FCIF 
FC21 
FC22 
FC24 


22 
[19 


00 
09 


00 
GE 
F9 
FS 
F2 


03 
D3 


25 


009 


26 


06 
FB 


1C 


FD 


06 


06 


18 
18 


06 


06 


06 


06 


06 


FD 


06 


STA 0622: 
JMP — FBERC 
LDX 400 
LDY 400 
GLV 
LDAET jEgő 
BPL — FBCE 
BVC — FBBB 
CLV 

INX 

BNE — FBBB 
INY 

BNE — FBBB 
LDA 40o3 
JMP — FDD3 
TXA 

AsL A 
STA — 9625 
TYA 

ROL A 
STA 0624 
LDA $BF 
AND 1805 
STA 1805 
LDA 466 
STA 0626 
LDX 43 
LDY 400 
TYA 

CLC 

ADC . 0626 
BCC — FBF1 
INY 

INY 

DEX 

BNE — FBEA 
EOR  4HFF 
SEC 

ADC 4OD 
CLC 

ADC — 8625 
BCS — FCO3 
DEC — 9624 
TAX 

TYA 

EOR  $FF 
SEC 

ADC HOL 
G4E 

ADC — 9624 
BPL  FCi15 
LDA  HO4 
JMP — FDD3 
TAY 

TXA 

LDX  $O0 
SEC 

SBC 43 
BCS  FC21 
DEY 

BMI — FC24 
INX 

BNE — FC1i9 


STX 0626 


ismételni, amig a különbség 4,4 ms-nál 
kisebb lesz! 


számláló ismét nullán 


SYNC? 
nem 
Byte Ready? 


a számláló növelése 


ha túlcsordulás, híba 
21, "read error" 


a számláló megkétszerezése 


és a 5624/8625 után, mint sáv-kapacitás 


142 


szektorok száma ezen a sávon 


blokk-közökben lévő összes byte 
számának kiszámítása 


eredmény az A/X-ben 


22, "read error" 


az összeg osztva 
a szektorok számával /843/ 


blokk-közönkénti byte-ok számának 
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FC27 
FC29 
FC2B 
FC2D 


FC30 
FCS1 
FCSS 
FC36 
FC3SB 
FCSB 
FCSD 
FCSF 
FC41 
FC44 
FC45 
FC46 
FC49 
FC4C 
FC4D 
FC4F 
FC52 
FCSs5S 
FcCS5 
FCSs8B 
FCS? 
FCSB 
FCSE 
FCSF 
FC61 
FC64 
FCS5 
FC68 
FC6G9 
FC6B 
FC6GE 
FC71 
FC74 
FC77 
FC7A 
FC7D 
FCa0o 
FC82 
FC84 
FcCs8S 
FCa6 
FCB7 
FC88 
FCBB 
FCBC 
FCBE 
FC90 
FC92 
FC95 
FC96 
FC97 
FC98 
FC9B 
FCgYE 
FCAD 
FCAZ 
FcaA5S 
FCA7 
FCAA 
FCAC 
FCAE 
FCB1 


FD 


06 


06 


[53 


06 
os 


os 


os 


oz 


os 


os 


02 
02 
02 
02 
02 
06 
96 


05 


"e 


39 
0300,Y 


9628 
0300 ,Y 


51 
0300 ,Y 


: 1 fő 
0300 ,Y 


2 X 
93900 ,Y 


HOF 
0300,Y 


0309 ,Y 


400 
OZFA,Y 
OZFB,Y 
O2FC,Y 


összehasonlítása a minimális értékkel 
ok 


22, "Tesd error" 


osztás maradéka 
plusz a szektorok számának,, 
tárolása ja 


szektor-számláló 

számláló /Lo/ 

egységszám 

8 állandó, fejléc kezdetének jele 
a pufferben 


szektor-szám 
a pufferben 


sáv-szám 
a pufferben 


1D2 
a pufferben 


LD. 2 
a pufferben 


a pufferben 


15 a pufferben 


ellenőrzőösszeg képzése 


a számláló növelése 

számláló 

összehasonlítása a szektorok számával 
ha kísebb, folytatni 


puffer-mutató 8349-on 


a puffer-adatok másolása 


puffer-mutató 8549 
az adat-puffer paritásának kiszámítása 
és tárolása 


átkapcsolás írásra, 555 felírása 14244-szer! 
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1C 


1C 


01 
1C 


1C 


06 


1C 


06 


FE 


06 


$FF felírása 5-ször 
Byte Ready? 


19-szer 
puffer-mutató 
Byte Ready? 


adatok felírása 


a pufferból 


már megtörtént 17 adat írása? 


9-szer 
Byte Ready? 


55 


felírása 


9-szer 

BFF 

5-ször 
Byte Ready? 


írófejhez 


$1BB-tól $lFF-ig terjedő tartomány 


felírása 


Byte Ready? 


256 adatbyte 
felírása a lemezre 


655 
/8626/-szor 


felírása 


plusz 19 

a szektor-szám csökkentése 
Byte Ready? 

Byte Ready? 


átkapcsolás olvasásra 
298 


puffer-mutató £344-on 


230 


FD34 5 43 LDA 45 
FD36 BD 28 06 STA 0628 
FD39 29 56 F5 JSR F5S56 
FDSC AZ 0A LDX  HOA 
FDSE Ag 00 LDY $00 
FD409 50 FE BVC FD40 
FD42 B8 CLY 

FD43 AD 01 1C LDA 1Co1 
FD46 D1 30 CMP (3539) ,Y 
FD4A8 DO BE BNE FDS8 
FD4A CB INY 

FD4B CA DEX 

FD4C DO FZ2 BNE FD40 
FD4E 18 CLC 

FD4F AS 30 LDA 30 
FDSI 69 0A ADC HOA 
FDS3 85 30 SsTA 30 
FDSS5 34C€ 62 FD JMP FD62 
FDSg CE 23 06 DEC 0623 
FDSB DO CF BNE FD2C 
FDSD A97 06 LDA HOG 
FDSF 4C€ D3 FD JMP FDDS 
FDS2 29 56 F5 JSR Fs56 
FDS5 AG BB LDY HBB 
FD67 50 FE BVC FD67 
FD69 Eg CLV 

FD6GA AD 01 1C LDA 1C01 
FD6D D9 00 01 CMP D190,Y 
FD7ZO DO E6G BNE FDS8 
FD72 CB INY 

FD73 DO F2 BNE FD67 
FD75 AZ FC LDX HFC 
FOZ7 ál FE BVC FEZZ 
FD79 B8 CLV 

FD7A AD 01 1C LDA 1C01 
FD7D D9 04 05 CMP 0500 ,Y 
FDBN DO D6 BNE FD5S8 
FD82 CB INY 

FDB83 CA DEX 

FD84 DO FI BNE FD77 
FDB6ó6 CE 28 06 DEC 0628 
FDB89 DO AE BNE FD59 
FDBB E6 51 INC 51 
FDBD AS 51 LDA 51 
FDBF €C97 24 CMP 424 
FD91 eBOo 03 BCS FD96 
FD93 4C 9t F9 JMP F99c 
FD96 A? FF LDA  HFF 
FD98a 85 51 STA 51 
FD97A AY 00 LDA 4$HOOD 
FD9C 85 50 STA 50 
FDJE A? 01 LDA HOI 
FDAD A4C 69 F9 JMP F969 
FREJE ÁE JE RE BEEE AE tt At ELÉ 9 At A JE JEE 9E 46 JE 96 At 9 
FDA3 AD OC IC LDA 1CoC 
FDAG 29 1í1F AND $IF 
FDAB 09 CO ORA HCB 
FDAA BD OC 1C sTaA 1CoC 
FDAD A? FF LDA  HFF 
FDAF BD 03 1C sSTA 1Co03 
FDB2 §8D 01 IC STA 1C01 
FDBS5 AZ 28 LDX 428 
FDB7 Ag 00 LDY  4$Oo0o 


sávonkénti szektorok száma 


megvárni a 5XNC-et! 
19 adat 


Byte Ready? 


AGY XI 
byte ölvasása s 5. 


összehasonlítás a pufferben lévő adatokkal 
ha nem egyenlő, hiba 


mutató növelése 14-zel 


számláló csökkentése 
még nem nulla? 

ha nem, hiba 

24, "read error" 
megvárni a SYNC-et! 
Byte Ready? 

egy byte olvasása 

és összehasonlítása a puffer tartalmával 
ha nem egyenlő, hiba 
következő byte 

Byte Ready? 


byte olvasása 

és összehasonlítása a puffer tartalmával 
ha nem egyenlő, hiba 

következő byte 

szektor-számláló csökkentése 

még nem nulla? 

sáv-szám növelése 

összehasonlítás 


ha nagyobb, a formálás kész 
folytatás 


sáv-szám $FF-en 
ok 
É$FF felírása 19249-szer 


PCR átkapcsolása írásra 


A-kapu /író/olvasófej/ outputon 
ő felírása a lemezre 
4 
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FDB7 50 FE BVC — FDB9 

FDBB B8 ELV 

FDBC 88 DEY 

FDBD DG FA BNE — FDB? 

FDBF CA DEX 

FDCg DOB F7 : IBNE. j .  FDB? 

FDC2 60 RTS. 8 
FENEKE TAK a 

FENNEN JEE JEE TEJE TERE EE JEE TETT TEJÉTE ÁE 9-4 

FDC3 AE 21 06 LDX " 0621 

FDCS6 AC 22 06 LDY 0622 

FDC9 509 FE BVC — FDC? 

FDCB BB ELV 

FDCC CA DEX 

FDCD DG FA BNE — FDC? 

FDCF 88 DEY 

FDDO 18 F7 BPL  FDC9. 

FDD2 60 RTS 

FENE ÁE JE ÁK RE E AE 9 9E E 9 AE AE AE AE EJ EÁ 9 AE AE E AE AE 996 

FDD3 CE 20 06 DEC — 0620 

FDD6 FO 03 BERG — FDDB 

FDDB 4C 9C F9 JMP — F99E 

FDDB AG FF LDY  $FF 

FDDD 84 51 STY 51 

FDDF. CB INY 

FDE0 84 50 STY 50 

FDE2 4C 69 F? JMP — F969 


NEEE E KEFE ÁE ÁE TEJE JEE AE JEE AE 9 94-96 96-46-36 96 
FDES B97 098 03 LDA 0500 ,Y 


FDEB 9799 45 05 sSTA 0345 ,Y 
FDEB 88 DEY 

FDEC DO F7 BNE FDE5 
FDEE AD 09 05 LDA 0500 
FDF1 BD 45 05 STA 0s45 
FDF4 608 RTS 

TEENE TEA AE AAL AE EE JE E IE NEJE IEEE AE EAT AE 46 44-96 46 
FDFS5S Ag 44 LDY 444 
FDF7 B9 BB 01 LDA 01BB,Y 
FDFA "91 30 STA (50) ,Y 
FDFC 88 DEY 

FDFD 10 FB BPL FDF7 
FDFF 60 RTS 

FEJERE ÁE JE JEE JE IE AI E EE JE AE 9 JE JE BE AE IE E AE 9E96 96 
FEOG AD OC 1C LDA 1CoC 
FEO3 09 Eo ORA HED 
FEoS5S 8D 0C 1C sTA 1CoC 
FEGg8 A? 00 LDA 4OOD 
FEgA BD 03 1C STA 1C05 
FEGD 60 RTS 

VEJE AE AE AE RETE FEÁEIE E EE JE 9 EREJE IE JE 36-94-46 36-96 
FEGE AD 0€ 1C LDA 1CoC 
FEii 29 tF AND HIF 
FE135 09 Co ORA  HCO 
FE15 BD OC 1C STA 1CoC 
FELIG A? FF LDA HFF 
FE1A BD 03 1C STA 1CosS 
FED A9 55 LDA 455 
FE1i1F BD 01 1C STA 1C01 
FEZ2 AZ 28 LDX 428 
FE24 AD 00 LDY  $4OOD 
FE26 50 FE BVC FE26 


Byte Ready? 


/8621/8622/-szer írni/olvasni 


Byte Ready? 


kisérlet-számláló formálásnál 


a kisérletek számának csökkentése 
ha nulla, hibát jelezni! 
folytatás 


lezárás 


a puffer tartalmának másolása 


PLBB - $lFF-t 
beírni a 838/8231 pufferbe! 


átkapcsolás olvasásra 


PCR átkapcsolása olvasásra 
A-kapu bemeneten 

£55 felírása 19244-szer 
PCR átkapcsolása írásra 


A-kapu írófejhez irányuló outputon 
901010101 
írófejhez közvetítő A-kapun 


kész az íróelektronika byte-ja? 
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CLY 
DEY 
BNE FE26 
DEX 
BNE FE26 
RTS 


TETETE ÁLLAT AE AT ÁE ÁE AL At E AE AE AE AE IE AE AE AE AE AE AE AEK 969 


TERE ÁE AE AA JE AE ÁL NÉ 90 At E AE A AL ÁL ÁLLAT AR RE TÉ 


TE TE9E BEDE BE AE 9 JE AL AE A AE JE IE AE At ÁE JE AE AL At 96 b dt AE 96 A 9 


FEZ2B B8 
FE29 88 
FEZA DO FA 
FEZC CA 
FEZD DO F7 
FEZF 60 
FE3ZO A9 00 
FE32 685 30 
FE34 85 ZE 
FE36 85 36 
FE3B A? BB 
FEZA 85 34 
FE3ZC A5 31 
FEZE 85 2F 
FL409 A? 01 
FL42 685 31 
FE44 A4 36 
FE46 Bi 2E 
FE48 85 52 
FE4A CB 
FE4B Bi 2E 
FE4D 85 53 
FE4F CB 
FESO Bi 2E 
FES2 85 54 
FE54 CB 
FESS Bi 2E 
FES7 85 55 
FES? CB 
FESA FO 08 
FESC 84 36 
FESE 209 DO 
FEGi 4C 44 
FEG4 4C DO 
FEG7 48 
FEóB  GA 
FE6G9 48 
FEGA 98 
FEGB 48 
FEGC AD OD 
FEGF 29 02 
FE71 Fo 03 
FE73 20 53 
FE76 AD OD 
FE7?  0A 
FE7A 19 03 
FE7C 20 BO 
FE7F 68 
FEGO0 AB 
FEB1 68 
FEB2 ARA 
FEO3 68 
FEB4 40 
FE85 12 
FEB6 04 
FEB7 04 90 


BELA E JÉ 9E AE AE AE AE JE RE ÁE AE AE AE AE NE EE AE AE JE AE At At dE 96 A 


Fé 
FE 


F6 


18 


E8 
1C 


F2 


LDA $OB 
sra 30 
STA  2E 
STA 36 
LDA BB 
STA 34 
LDA 31 
STA . 2F 
LDA 401 
sra 531 
LDY 36 
LDA" (2E)GY 
sra 52 
INY 

LDA (2E),Y 
sra Sz 
INY 

LDA (2E),Y 
sra sa 
INY 

LDA (2E),Y 
STA 55 
INY 

BEG — FE6G4 
STY 36 


J8R — F6DO 
JMP  FE44 


MF F6óDO 


PHA 

TXA 

PHA 

TYA 

FHA 

LDA 180D 
AND OZ 
BEG FE76 
JSR EG5S3 
LDA 1coD 
ASL A 
BPL FE7F 
I9SR F2BO 
PLA 

TAY 

PLA 

TAX 

PLA 

RTI 


FE8g9 56 49 44 4D 4255 
59 26 43 52 SS 4E 


FEBF 


14244-szer! 


megszakítás rutin 
a regiszter tárolása 


a soros busz megszakítása /ATN IN/? 


nem 
kiszolgálni a egoros buszt! 
az 1. óra megszakítása? 


nem 
a lemezvezérlő IRO-rutinja 


a regiszter visszatöltése 


lemezformátum állandói 

18, BAM és a tartalomjegyzék sávja 
BAM indítésa a 4. poziciótól, 
minden sávra nézve 4 byte a BAM-ban 
£99-144, Bali vége, lemeznév kezdete 
utasítás-szavak táblázata 

wyn § " " A nrn § ny 5 d : 4 s ad 0 hd 

ké ség gr, két Sásd gi ső E ég egyen 
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JEE JEE DE EEEN EE JEE EE RE TEJET TERE 99646 9E utasítás címeinek alsó byte-ja /Lo/ 
FEY5 984 05 Ci F8 1B 5C 
FE9B 07 A3Z3 FO 88§ 23 OD 


FEJERE EE JE AE EREJE EE NE JEE 9 EE JE JE JE JEE 3E JE 969 utasítás címeinek felső byte-ja /Hi/ 
FEAl ED DO CS CA CC CB 
FEA7 E2 E7 FG.PA CB EE - 


JE JEE TE TE RE EE AE AA E E 9EAEJE JE IE AE E AE JE JE AE 96 E E 


FEAD 54 DD 1C 9E 1€ szintaxis-ellenőrzési byte-ok 

FEVER JE JE JE TEJE JE JE HERE E AE 94 9E JE RE AE TEJE HE FE JEE AE JE TE AE file-üzemmódok 

FEB2 52 57 41 4D ád : 6 u. hét MAT ny 

FEJEJE ENE DEZE JE JE BENE TEJE TEA ZE JE JE JE EE JE JE JE E JE 3696 file-tipusok 

FEB6 44 53 50 55 4C ke gő kaét 2 4 A asát úg Tizek hd 

FEE BE JE JE RE JE JE JE JEE JE E IE AE IE NE JE RE JEE HE JE JE JE 9 JE E AE file-típusok nevei 

FEBB 44 53 50 55 52 file-tipus 1. betűje "D","S","Pt,"U","R" 
FECO 45 45 52 53 45 file-timsa 2... betűje VERS, BRG 
FECS5 4C 51 47 52 4C file-tipus 3. betűje b a EASK a otet akt dalla hatos ss 


TEJET TE ÁE AE EE DEE EE EE AE JE JE BEEE IE 9E AE AAL EE IE 
FECA 08 09 00 


RNI E EE JE DE IEEE IE BE-3E 36 36 E AE AE 96 HE 46 44-E 


FECD 3F 7F BF FF a bit-utasítás maszkolása 

EE TE HE EE JE TE RENÉE JE EE ÁE E AE At AE 96646 sávonkénti szektorok száma 

FEDi 11 121515 u bo kez ken 4 ge B 

MENETE BEEE EE EE E EE NEE JEE NE FEE AE JEA 46 AA a lemezformátum állandói 

FEDS 41 "A" jel az 1541 formátumra vonatkozik 
FED6 04 24 4 sáv-szám, 36, legnagyobb sáv-szám 4.1 
FEDO  1F 19 12 szektor-szám váltás 31, 25, 18 sáv 

TEJE JEE TEJE IE NEMERE EE ÁE IE EAT At 96969 36 9E 9 At 96 -9E 969 

FEDB 01 FF FF 01 08 mágnesfej pozicionálásának vezérlő-byte-jai 
ME E DET TE EREJE E EKE JET ÁE E ÁE EREJE ÁE AE AE NE 96AE AE puffer-tár címei 

FEEG 03 04 05 06 07 /Hi/ 


BEDEJEDE HETE E TEJE E JE E JEE 9E HEHE JE JE JE JE AE 36 96 JE 9E9E 
FEES 07 SE 


FREE ENE EHE EE EE 9 JEE JE RE HE ÁE AE EE 3E AE AE AE UI-utasítástól 
FEE7 6C 653 00 IMmP (9965) 


EXXNRER EK ER A RA NE EN EE ENE ENE 369 16-4646-9E diagnosztika-rutin 

FEEA B8D 09 1C STA 1cCg0 LED bekapcsolása 

FEED BD 02 1C STA 1C02 kapu outputon 

FEFO  4C 7D EA JMP EA7D vissza a diagnosztika-rutinhoz 
AETR E JEE E E EE AE JE JEE E BE JE JE JE EA JE JE JE 93696 soros busz késleltető ciklusa 
FEFS3 8A TXA 

FEF4 AZ 05 LDX  $O05 

FEF6 CA DEX kb. 49 mikroszekundum 

FEF7 DO FD BNE FEF6 

FEF9 AA TAX 

FEFA 60 RTS 

FREE TETEJE ÁE AE E AE AE IE FE BEEE JE IE 3E BE 46 994 3E adat-output a soros buszra 
FEFB 20 AE E9 JSR — EJAE CLOCK OUT /Hi/ 

FEFE 4C 9€ E? JMP — E99E DATA OUT /Lo/ 
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AE EE TEÁT EE At AE JE AETR ARE E AE AE AE 96 At E Ab At 9 E 


FFO1 AD 02 02 LDA 0292 
FFoO4 C9 2D CMP  4H2ÓD 
FFO6 FOG OBB BEG FFOD 
FFo8 SB SEC 

FFG? E? 28 SBC H2B 
FFOB DO DA BNE FEE? 
FFOD 85 23 STA 23 
FFOF 608 RTS 

NAAA BE TERET TEA 9 9 AE E 39 996 JE 9 A 44 36 3-9 
FF1g 8E 05 18 STX 1803 
FFi15 A9 02 LDA 4$4O2 
FF15 8D 06 18 STA 1890 
FFI A? 1A LDA HIRA 
FF1A 8D 02 18 STA 1602 
FFID 4C A7 EA JMP ERA7 
FF20 AD 00 198 LDA 1800 
FF23 29 01 AND  $01 
FF25 DE F? BENE FF20 
FF27 Aa? 01 LDA HOL 
FF29 BD 05 18 STA 1805 
FFZ2C 4C DF E? JMF E97DF 
JEE ÁE E ÁE Et E At AR ZE AE AE At 96 BE AE JE JE JE AE AE JE At 969 
FF2F AA AA AA AA AA AA AA AA 
FF39 AA AA AA AA AA AA AA AA 
FF43 AA AA AA AA AA AA AA AA 
FF4D AA AA AA AA AA AA AA AA 
FF57 AA AA ARA ARA AA AA AA AA 
FFó1 AA AA AA AA AA AA AA AA 
FFÓOGB AA AA AA AA AA AA AA AA 
FF75 ARA AA AA AA AA RA AA AA 
FF7F AA AA AA AA AA AA AA ARA 
FFB89 AA AA AA AA AA AA AA AA 
FF93 AA AA AA AA AA AA AA AA 
FF9D AA AA AA AA AA AA AA AA 
FFAZ ARA AA AA ARA AA ARA AA AA 
FFBL.I AA AA AA AA AA AA AA AA 
FFBB AA AA AA AA AA AA AA AA 
FFCS AA AA AA AA AA AA AA AA 
FFCF AA AA AA AA AA AA AA AA 
FFD9 AA AA AA AA AA AA AA AA 
TED E JE BE TETEME TE E TE AE MKE TE ARE 9E NÉZ 9E EE E AE Ab AE 
FFE2 AA AA AA AA 

FFEsG €C6 CB BF F? 

JEE JE JE ENE TEJE IE JE JE AE AE ÁE AE AE A 9 E E EE HE 9E 963 6 9 
FFEA SF CD 

FFEC" 97 cp 

FFEE wa 05 

FFFO 03 05 

FFF2 06 05 

FFF4 09 05 

FFFőS OC 05 

FFFB8B OF 05 

FFFA BI FF 


EJEMEK TETEJE ÉRE E IEEE JE JE EE JÉ JE JE 9 JE E 36 
FFFC AB EA 


FFFE 


67 


FE 


JEJEJE JEE BE JE AT JEE EAK E 969 At 4 JE JE IE AE 9 JE E Át Hé JE IE 


RA 
AA 
ARA 
AA 
RA 
AA 
AA 
AA 
AR 
AA 
AA 
AA 
ARA 
AA 
ARA 
AA 
[ala 
AR 


AA 
ARA 
ARA 
AA 
AR 
AA 
ARA 


AA 


AR 
AA 
AR 
AA 
AA 
AA 
RA 
ARA 
AA 


UI-vektor 


/$65/ közvetett kihagyása /átugrása/ 
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Az eredeti könyvben szereplő és az általunk közölt DOS lista között helyenként eltérés lehet. 
A COMMODORE cég ugyanis időnként kisebb módosításokat végez az 1541-es lemezegység 
operációs rendszerében. Az általunk ismertetett DOS a jelenleg Magyarországon forgalom- 
ban lévő lemezegység operációs rendszere (a ford. megj.). 


4. FEJEZET 
PROGRAMOK ÉS ÖTLETEK A VC-1541-HEZ 


4.1. Segédprogramok 
4.1.1. Az összes file-paraméter kiírása 


A lemez kilistázott tartalomjegyzéke nem tartalmazza az összes információt, amit egy-egy 
file-ról a DOS nyilvántart. Pedig gyakran előfordul, hogy a programozási munka során 
szükségünk van bizonyos adatokra, pl. a file kezdőcímére, vagy egy relatív file rekordhosszú- 
ságára stb. Ezeknek a paramétereknek a meghatározása többnyire egy-egy program megírá- 
sát igényli, mint ahogyan azt a korábbi fejezetekben láttuk. 

Az alábbiakban bemutatunk egy olyan programot, amely a lemezen tárolt file-ok összes 
paraméterét kiírja. A file-paraméterek természetesen a file-típustól is függenek. Így például 
egy relatív file-hoz nem lehet hozzárendelni kezdőcímet. A következő táblázat az egyes 
file-típusok azori paramétereit foglalja össze, amelyek a közölt programmal! meghatározha- 
tók: 


FILE-TÍPUS 


DEL. SEG-GPRGs SB" REL 


Lezárt file? X X X X xX 
Védett file? X X X X X 
Foglalt blokkok száma X X X X X 
Rekordhosszúság X 
Oldalszektor-blokkok X 
Adatblokkok X 
Rekordok X 
Kezdőcím X 

OONVADTT LA ZET SZ MEN CAN ZONE ZON AKOR ZETT ntést MINEK Iz Ea maa TM NÉZTEK VEVOK COTTA 1 IZITON SASZZT ITTÁK) VONSZ EK 10 Ta SSÉNÁRBO RENÉE ENGNÉBS 
A lemez szabad blokkjai X X X X X 
A lemez foglalt blokkjai X X X X X 


A program dokumentálása a legkisebb részletekre is kiterjed. A felhasznált változók jelentését 
előfordulásuk sorrendjében ismertetjük 


Numerikus változók 


ik — A tartalomjegyzékben lévő file-bejegyzés aktuális blokkjának sávja 

S — A tartalomjegyzékben lévő file-bejegyzés aktuális blokkjának szektora 

FU — Kapcsoló, melynek értéke eldönti, hogy a lemezről olvasott file-neveket ki kell 
listázni vagy összehasonlítani egy keresett file-névvel 

nine — A megadott file típusa (a bejegyzés 0. byte-ja) 

FT — A file-típus félbyte-ja (0-3. bitek) 

KB — A lemezről olvasott kezdőcím alsó byte-ja 
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HB 
BL 
RL 
DT 
DS 
AA 
BF 
BB 
BS 
RC 


Füzérek 
F$ 

FF$ 
FT$ 
GE$ 
SA$ 
RE$ 
RA$ 

A program 
110 
120-200 
210-230 


250-270 
280—490 


500-530 
540—590 
600—-610 
620—-630 
640-690 


700-730 
740-880 


890-980 


— A lemezről olvasott kezdőcím felső byte-ja 

— A file által lefoglalt blokkok száma 

— A relatív file rekordhosszúsága 

— Egy programfile első adatblokkjának sávja, amely a kezdőcímet tartalmazza 
— Egy programfile első adatblokkjának szektora 

— Egy programfile kezdőcíme 

- A szabad blokkok száma a lemezen 

— A foglalt blokkok száma a lemezen 

— Az oldalszektorok száma egy relatív file-ban 

-— A rekordok száma egy relatív file-ban 


— A keresett file neve 

— Az aktuális file-név 

— File-típus (szöveg) 

— Az az állandó, amely megadja, hogy a file lezárt állapotban van-e (IGEN-t vagy 
NEM-et tartalmaz) 

— Az az állandó, amely meghatározza, hogy a file védett vagy sem (IGEN-t vagy 
NEM-et tartalmaz) 

— CHR$ (18) REVERSE ON-t tartalmaz 

- CHR$ (146) REVERSE OFF-ot tartalmaz 


dokumentációja 


Beállítja a képernyő színét 

Programfejléc 

Megkérdezi a felhasználótól, hogy kéri-e a file-ok nevét. Az FL kapcsolót 1-re 
állítja és a 280—490-es rutinokat futtatja 

A file-név bevitele. Új input szükséges, ha a file-név 16 karakternél hosszabb 

A file-nevet olvassa a tartalomjegyzékből és vagy kiírja (FL — 1), vagy összeha- 
sonlítja a keresett file nevével 

Beolvassa a keresett file-bejegyzés 0. byte-ját (file-típus) és a TY-ban tárolja. 
A jobboldali félbyte-ot tárolja az FT-ben. 

A file-típust ellenőrzi, szövegesen tárolja az FT$-ban, az érvénytelen file-típust 
kiszűri. 

A file-típus-byte 7. bitjét ellenőrzi (a file lezárt állapotban?) és az eredményt a 
GE$-ban tárolja. 

A file-típus-byte 6. bitjét ellenőrzi (védett a file?) és az eredményt az SA$-ban 
tárolja. 

A file által lefoglalt blokkok számát olvassa a 28. és a 29. byte-ból, majd a BL-ben 
tárolja. 

Relatív file esetén a bejegyzés 21. byte-jából beolvassa a rekord hosszúságát. 
Programfile esetén meghatározza a file kezdőcímét az első adatblokkból, és az 
AA-ban tárolja. 

Kiszámítja a lemez szabad blokkjainak számát úgy, hogy mindig a sávra vonatko- 
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zó BAM-kivonat első byte-ját olvassa és ezeket a BF-ben összegzi. A foglalt 
blokkok meghatározása BB — 644 — BF-fel történik. 

990-1020 Relatív file esetén a rekordhosszúság (RL) és a file által lefoglalt blokkok számá- 
nak segítségével kiszámítja az oldalszektorok"(BS) és"a rekordok (RC) számát. 
Mivel a DOS a relatív file minden 120 blokkjához hoz létre: egy. oldalszektort, a 
program a BS — BL/121 alapján az oldalszektorok számát határozza meg és ezt 
kerekíti fel a következő egész számra, majd a fennmaradó blokkokat 254-gyel 
beszorozva és a rekordhosszúsággal elosztva, megadja a file-ban lévő rekordok 
számát. 

1040-1230 Az eredményeket kiírja képernyőre vagy nyomtatóra. (A file-paramétereket a 
REVERSE módban írja.) 

1240-1280 További file-paraméter meghatározása. 


Bár a program CBM 64-en készült, különösebb változtatások nélkül futtatható a VC 20-on 
is. Csak a 110. sorban kell változtatni a képernyő színének beállítására vonatkozó utasítás- 
ban. 


P. 45 

100 ciíir 

119 pokeS35280, 0: pokeS32ZB1 , O:print"W" 

120 printtab(6) ; "esszssszeszzezzsmmsemerszarsismizmmezzz szeszt 
150 printtab(6);"file parameter megallapitas" 
149 printtab(6) g " meessszszzsssszmemmmm szszzszzmzzzz mene tt 


150 print:print 

160 print"Ez a program tajekoztatast ad a" 
170 print"kivalasztott file parametereirol" 
189 print"a kepernyore, vagy a nyomtatora." 
1909 : 

2909 print:print 

210 print"filenev listat ker ? (i/n)" 

220 getx$:ifx$(C2"i"andx$(2"n"then220 

230 ifx$z"i"thenflz1:gosub28Oo 

249 f1-0 

250 iínput"a file neve";f$ 

260 iflen(f$)cs16 then 280 

270 print"a filenev hosszu !!!":goto250 
289 opení5,8,15,"i0":open2,8,2,"4" 

299 t-18:sz1 

39090 printti15,"b-r"52;0;t;s 

319 printtt15,"b-p";2;0 

3209 getW2,x$:ifx$s""thenx$zchr$(0) 

325 tsasc(x$) 

IZ0 gett2,x$:ifx$5""thenx$zchr$(0) 

3490 szasc(x$) 

350 forx:Oto7 e 

360 printtt15,"b-p";32;3;xX32t 

I70 ff$sz"" 

389 fory-Otol5 

399 gett2,x$rifx$-""thenx$-chr$(0) 

4090 ifasc(x$):160then450 

410 ffászffístxi 

420 nexty 

430 iff$-fféthen490 

440 ifflthenprintff$ 

450 nextx 

460 ift-Öthen480 

470 goto300 

480 close2:close15 

485 iff1l-Gthen print"filenev nem letezik!!! ":goto210 
490 ifflthenreturn 
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500 printt15,"b-p";23;x432142 

5190 gett2,x$:ifx$5-""thenxizchr$(D) 
520 tyzasc(x$) 

539 ft-tyandi5 

540 ifft-Othenft$sz-"torolve van" 

550 ifft-ithenft$z"seguencíiíalis" 

5360 ifft:s2thenft$-"program" 

570 ifft:-3thenft$sz"user" 

580 ifft-4thenft$z"relativ" 3 

599 iffto4thenft$z"ismeretlen filetipus!!!":goto200 
600 iftyandi28thenge$-"iíigen" :gotoa6ó20 
610 ge$-"nem" 

620 iftyandó4thensa$-"igen":gotoós40 
630 sa$z"nem" 

640 printt15,"b-p"525x$3532430 

650 getH$2,x$:1ifx$-""thenx$zchr$(0), 
660 lbsasc(x$) 

670 gett2,x$zifx$iz""thenx$z-chr$(D) 
6890 hb-asc(x$)x256 

690 bliszlbthb 

700 ifftC24then740 

710 print$15,"b-p"323xt324235 

720 getH2,x$:ifx$z""thenxszchr$(0) 
730 rlsasc(x$) 

740 ifftC22thenB890 

750 printtt15,"b-p"5235xt3243 

760 getHt2,x$:ifx$z""thenxizchr$(0) 
770 dtzasc(x$) 

780 get$2,x$:ifx$5""thenx$zchr$(0) 
799 dszasc(n$) 

809 open3,8,3,"t" 

819 printt15,"b-r"5350zdt;ds 

B20 printt15,"b-p";:53552 

839 getW3,x$:ifx$z""thenx$zchr$(0) 
840 lbsasc(xi) 

850 get$3,.$:ifx$-""thenx$szchr$(0) 
8960 hb-asc(x$) 1256 

870 aazlbthb 

889 closes 

897090 print$15,"b-r"525051850 

909 bf:XW 

919 fori-4tol4s0step4 

920 ifi:72then960 

939 print$15,"b-p"52zi 

9409 gett2,x$:ifx$5-""thenxti-chr$(0) 
959 bf-asc(x$)tbf 

960 next 

970 s: 

980 bb-644-bf 

999 ifftC24then1040 

1000 : 

1010 bs-bl/ií21:ifbsC2int(bs)thenbszínt(bs)-t1 
10209 rcsint(((b1l-bs) 4254) /r1) 

1030 : 

1040 print"W";"kepernyore vagy a nyomtatora (k/n)" 
1059 getx$:ifx$C2"k"andx$(2"n"then1050 
1960 re$szchr$(18):raszchr$(146) 

1970 ifx$§5"k"thenopeni,3:prínttti,chr$(147) 
1080 ifx$5"n"thenopen1,4 


1990 printtt1, "file parameterek " res;f$sszros 

b A A zá RESZ OROK EKGETMENO A VIZÜONTSETŐTZTSZAG E VAN KEÉSHEZ IZOSNNORE TE OG AEK gt 87 AE . 
1119 printtti, "file tipusz " reszftizra$:printtti 
1120 printt1,"file beolvashato "s re$sge$zrati:zprinttti 
1130 printti,"file vedett —-— "s reg$zsafzra$:printtti 
1149 printtti1, "elfoglalt blokk szresz;blizra$:priínttti 
1159 ifftC24then1200 

1160 printtt1 , "rekordhossz "s reszrlzra$:print4i 
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1170 printtt1, "side-sektor blokk "zsretsz;b$ázra$:printtl 


1199 printt1l,"adatblokk " re$;bl-bszra$:printtil 

1190 printtt1, "rekordok "s re$zrczrasi:printtti 

1200 ifft-2thenprint4l,"startciím "s sretfzaazra$:printtti 
1210 printti1,"szabad blokkok "s ret;bfzrai:printtti 

1220 printt1,"foglalt blokkok " resgsbbira$:printtt1 


12350 closel vsgét 26 § zet 
1240 print"folytassam (i/n) ?" 

1250 getx$sifz$C2"itandx$Co2"n"then 1250 

1260 close2:closei5 

1270 ifx$z"i"thenl43 

1280 end 


4.1.2. File-védelem 


A korábbiakban már utaltunk arra, hogy a tartalomjegyzékben bármely file védettnek minősít- 
hető. A file-bejegyzés 0. byte-ja tartalmazza a file-típust. A 6. vagyis a 64 decimális értékű bit 
értéke jelöli, hogy a file védett-e vagy sem. Ha ez a bit 1, a file a SCRATCH utasítással nem 
törölhető. Miután azonban a DOS nem tartalmaz az említett bit beállítására szolgáló utasítást, 
így ehhez BASIC programot kell írni. 
A P.46. jelzésű programmal: 

— kiírhatjuk a lemezen tárolt file-ok nevét a képernyőre, 

— védhetjük a file-okat, 

— felszabadíthatjuk a file-okat, 

— törölhetjük a file-okat. 
Ezzel a programmal! a védett file-ok is törölhetők. Védett file esetén a törlési kívánságot vissza 
kell igazolni. 
A programot kimerítően dokumentáljuk, elképzelhető ugyanis, hogy az Olvasó a saját prog- 
ramjaihoz is tud belőle részeket használni. 


A változók jegyzéke 


GF — A , file-nevek olvasása, keresése" rutinban beállítandó kapcsoló, amely jelzi, 
hogy a keresett file-név szerepel-e a lemezen vagy sem. 

ak — Kapcsoló, melynek értéke 1, ha a felhasználó listát kér a file-nevekről. 

(si) — A file-típust tartalmazó változó 

új, — A file-bejegyzés aktuális blokkjának sávja 

S — A file-bejegyzés aktuális blokkjának szektora 

TT — Az a sáv, amelyen a keresett file bejegyzése van 

SS — Az a szektor, amelyen a keresett file bejegyzése van 

FF$ — A tartalomjegyzékből utolsóként olvasott file-név 

F$ — A keresett file-név 


A program dokumentálása 


100 Képernyő színének beállítása 
110-230  — Programfejléc és menű 

240-260  Elágazás választás szerint 

270 Vissza a menűhöz 

280-350 A Ü"file-nevek listázása (rutin) 
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310 A képernyő törlése 


320 Az FL kapcsoló beállítása listázáshoz 

350 A kapcsoló visszaállítása, visszatérés a rutinból 
360-600 A w"file-ok védelme (rutin) 

390 Ugrás ,A file-név beolvasása" rutinra 

400 Ugrás ,A file-nevek olvasása, keresése" rutinra 


410-450 GF kapcsoló ellenőrzése (GF—0, ha a keresett file nincs a lemezen) 
460-480  Afile-típus beolvasása (FT) 
490-500 A védettség ellenőrzése 


510 A file védelme (6. bitbe 1.) 

520-550  Aw"ile-típus átvitele a pufferbe és a blokk lemezre írása 
560 A csatornák lezárása 

570-600 Av, ,file védett" üzenet kijelzése és visszatérés a rutinból 
610-850 Egy file védelmének feloldása (rutin) 

640 Ugrás ,A file-név beolvasása" rutinra 

650 Ugrás ,A file-név olvasása, keresése" rutinra 


660-700 GF kapcsoló ellenőrzése 
710-730  AIw"ile-típus olvasása (FT) 
740-750  Védettség ellenőrzése 


760 A védelem feloldása (6. bit— 0.) 

770-8BO0  Awile-név átvitele a pufferbe és a blokk lemezre írása 
810 A file lezárása 

820-850 A rutin befejezése, visszatérés a menűhöz 

860-1170 Egy file törlése (rutin) 

890 Ugrás ,A file-név beolvasása" rutinra 

900 Ugrás ,A file-nevek olvasása, keresése" rutinra 


919-950  — GF kapcsoló ellenőrzése 

960-980 — A?ile-típus olvasása (FT) 

990 Védettség ellenőrzése 

1090-1030 Védett file-ra való utalás (a file azonban ennek ellenére törölhető) 
1940-1060 Törlési kívánság visszaigazolása 


1070 A 6. bit visszaállítása, ha a file védett volt 

1080-1110 A file-típus átvitele a pufferbe és a blokk lemezre írása 
1120 A lemezegység inicializálása 

1130 A file törlése 

1140-1170 A rutin befejezése 

1199-1560 A file-nevek olvasása, keresése (rutin) 

1220 A parancs- és adatcsatorna megnyitása 


1230—-1240 A tartalomjegyzék olvasása és a puffermutató beállítása 

1250—-1320 Írásvédettség ellenőrzése. A program a tartalomjegyzéket változtatás nélkül 
megpróbája felírni a lemezre (1250-es sor). Ha van írásvédelem a lemezen, a 
program 26, WRITE PROTECT ON hibaüzenetet küld. 

1330 A sáv- és szektorváltozók kezdőértékeinek beállítása 

1349—1350 A file-bejegyzés blokk olvasása és a puffermutató pozicionálása az első byte-ra 

1400—1530 File-név olvasó ciklus. Ha FL-—1, a program kiírja képernyőre a file-neveket, 
egyébként összehasonlítja az aktuális nevet a keresett névvel 

1540-1560 Amennyiben a T változó 0-t tartalmaz, nincs további file-bejegyzés blokk, Így a 
rutin véget ér 
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P. 46 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
350 
340 
550 
360 
570 
380 
398 
400 
410 
420 
450 
440 
430 
460 
470 
4BO 
490 
500 
5310 
520 
530 
540 
550 
560 
370 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
750 
740 


pokess3280 , 0: pokeS3281 , O:printchrá( 158) zchr$ (14 
printtab(6);"- 
printtab(6);"file torlese es vedelme." 
printtab(6) 3 " ssesssszsssssessszzesme sz esze en na sz maz sz: mee 1) 
print:print 

print"ezzel a programmal a file vedelemben 
print"reszesitheto, felszabadithato es 
print"torolheto. " 

print:print 

printtab(6)3"1 - a file-ok listazasa":print 
printtab(6)5"2 - egy file vedelme ":print 
printtab(6);:"3 — egy file felszabaditasa":print 
printtab(6)3"4 - egy file torlese":print 
printtab(6)5"5 - program befejezese":print 
getx$:ifx$z""orval(x$)Ciorval (x$) 2S5then240 
ifval(x$)55 then end 


ms za me zza ag tő8 122 128 128 128 ag 22 223 mg 28 sze em ez 29 ea 00 


onval (x$) gosub280 , 369 ,610 , 860 

goto 1090 

a AE EE ÉE TE ESA E RÁSKÉRÁE EKEZETES TAT TAT 

rem valamennyi filenev listazasa 

EGÁL lök ÜLÉSE tá KSE nagks vá eetztttz teti réétesi 
printchrá(147):print"Blista a filekrolWl" 


fisi:gosub119B 
print:print"tovabb ———?öreturn" 
inputx$ 

f1-B:return 

NYA tettette ázva zetttsgaáetndttáábétált öaszáaÉ ténd lt lle eváánadásál ss en 


" kn ma ÖÉSZANÁZÉREz SSE ZÉSÉN S ÉGSÉKÉN EE ÚN KEÉ 

gosub15S8a 

gosubl1i9O0 

ifgf:-1then460 

print"ilyen file nincs !!!"eprint 
print"tovabb —-——2return" 
inputx$:zclose2:close15 

return 

printtti5,"b-p"3;23;xt521r2 
gett2,x$:ifx$-s""thenx$zchr$(0) 

ftsasc(x$) 

if(ft and 64)s0Öthen510 

print"a file mar vedett !!!":print:goto45B 
fts(ft or 64) 

printtt15, "b-p"3;23x$3242 

printtii2,chrá$(ft); 

printt15,"b-p"32;50 

printttiS5, "uz": 25D;tt;ss 

close2:closei15 

print"a file vedve !!!" 

print"tovabb --—öreturn 

inputx$£ 

close2:closei5S:return 

Ál are ÉZEKSZESO ESTERE SÉSEOSZOE ÉT ISOZEZOGAT SEgNaSSázgattgsati 

rem a file-vedelem feloldasa 

TÉŰÜN eitétzzjtáéten átása saszzeztáaátánys ten ez jeldaj dzvezáás sás hösdlás sét aitsó 

gosub1580 

gosub1190g 

ifgfs1i1then710 j/ 
print"ilyen file nincs !!!":print 
print"tovabb -—-—oreturn" 
inputx$:closeZ:closel5 
return 
printt15,"b-p";2;.x3242 
gett2,x$:ifx$z""thenx$-chr$(0) 
ftsasc(x$) 

if(ft and 64):564then760 
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750 print"ez a file nincs vedve !!!":print:goto6óBO 
760 ftz(ft and 255-564) 

770 printtti15,"b-p";: 
780 print42,chr$(ft 
790 print.$15,"b-p";52;0 

800 printW15,"uz":2zOztt;ss 

B19g close2:closei15 

B2O print"a filevedelem torolve !!!" 
830 print"tovabb ——-—öreturn 

840 inputx§ 

859 return 

OG GÖNÉL een ááááezetsát té 


152-r2 


e NÉ ab. VÉ SREÉZSEZN ESÉSE OS SÉNKEREt ENZNONEKENEESÉN al Sáta 
8979 gosubi530 

900 gosub1190 

9109 ifgf:-1then960 

920 print"ilyen file nincs !!!"zprint 
930 print"tovabb ———?return" 

940 inputx$:close2:c1losei5 

750 return 

960 printtt15,"b-p"3;25x$5212 

770 gett2,-$zifxds:""thenx$zchr$(0D) 
980 ftsasc(x.$) 

9909 if(ft and 64)-0 then1040 

1000 print"figyelem !!!" 

1095 piri ot" sf—— 

1010 print"a file vedett. toroljem ? (i/n)" 
1020 getx$:ifx$z""orx$Cd"i"andx$(2"n"then1020 
1930 ifx$-"/"n"then 1170 

1940 print"biztos ? (i/n)" 

19050 gets$:ifx$z""orxyO"i"andx$(lo"n"then1950 
1969 ifx$z"n"then 1170 

1070 ft-(ft and 255-64) 

1080 print$15,"b-p";23.43242 

19909 printt$2,chr$(ft); 

1100 printt15,"b-p":2;0 

1110 print$15,"u2";25Oztt;ss 

1120 print$15,"ig" 

1130 printti5,"s:"1f$ 

1140 print"a file torolve !!!" 

1150. print"tovabb -—--öreturn" 

1160 inputx$ 

1170 close2:closeiSzreturn 


1200 rem file-ok olvasasa, keresese 
"2! Je) BA ERKSENAESZEREKÉTÁTÁTSZNNÁ SÜN TNNR SÉNÉÉNEET 
1220 open15,8,15,"i10":open2,B,2,"H" 
12309 -printt15,"b-r"3250518;0 

1240 print$15,"b-p";2;0 
12580 print415,"u2"5230;5 
1260 inputt15,x1$ 

1270 ifval(x1$)C226 then 1330 

1280 print: 

1290 prints 

13080 print"tovabb ———öreturn" 

1713 inputx$ 

1320 close2:closei5:return 

153393 tsíig:szi:ttz-i8:ss-zi 

1340 printtt15,"b-r"52;Ozt;s 
printt15,"b-p Hi) 
getH2,x$:ifx$5-""thenzszchrí(0) 
tsasc(x$):iftcC.Dthenttzt 

1380 getHt2,x$:ifx$5""-henxszchr$(0) 
1390 szasc(x$):ifsC22z55Sthensszs 
1490 forx-Bto7 


18;0 
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1410 print$15,"b-p";23x 3252 

1420 get$2,x$:ifx45-""thenx$zchr$(0) 
14530 ifasc(x$) -öthen15530 

1440 printH15,"b-p";:2;x. 3275 

1450 ffáz"" 

1460 fory-wptol5 

1470 get$2,x$:ifx$z""thenx$-chr$(0) 
1480 ifasc(x$)sió0thenií1500 

1490 ffázff$fitx$ 

15990 nexty 

1510 ifflithenprintff$:gotol1530 

15209 iffsőzffőthengf:-1:gotol570 
1530 nextx 

1549 iftC2Othen1340 

1550 close2:closei15 


1568 iffledthenprint"ilyen file nincs !!!":forizíito2D0Do: next 
1570 return 

JALAKNNNNTÉZ TT NÉK (Tót sgt bek Ete tésztát MÁ Asz ÉRTSEK 

1590 rem filenev megadasa 

hg E Ezüst ÉNUSGÉSÜSE Sz eéatáte té kácsétttüt sast ássazntea ásás a 


1610 printiprint 

1620 input"a file neve: ";f$ 

1639 iflen(f$)c17then 1650 

1640 print"a filenev tul hosszu (max 16 kar) !!!":print:gotoló20 
1650 gfr0:flil:0 

1668 return 


Ez a segédprogram is CBM 64-en készült és a VC 20-on is futtatható. Mindössze a 1099. sort 
kell kihagyni, amely a CBM 64-nél a képernyő színét állítja be. Amennyiben különös súlyt kell 
fektetnünk egy optikailag kifogástalan képernyő-outoutra, a 110-230. sorok összehangolha- 
tók a VC 20-as képernyős ábrázolással. 


4.1.3. A Backup program - a lemezek másolása 


Kettős meghajtóegységgel ellátott alapgépeken a lemezek másolását olyan rendszerutasítá- 
sokkal végezhetjük el, mint a BASIC 4.0 DUPLICATE vagy BACKUP utasításai. Az 1541-es 
egyszeres meghajtóegységen a lemezek másolására nem áll rendelkezésre BASIC utasítás, 
ézért a másolást az alapgépen keresztül felhasználói programokkal kell megvalósítani. 

A másolási folyamat elvileg a következő: beolvassuk a másolandó lemez BAM-ját, nevét és 
ID-jét. A BAM-ból megállapítjuk, hogy a forráslemezen melyek a foglalt blokkok (fölösleges 
lenne ugyanis a szabad blokkok átmásolása). Ezután megnyitunk egy közvetlen elérésű file-t 
és annyi adatblokkot olvasunk be a tárba a forráslemezről, amennyi elfér (kb. 169 blokk). 
Most bekérünk egy lemezt (céllemez) és megformáljuk. A tárból előzetesen kiolvasott adato- 
kat felírjuk az új lemezre. Ekkor ismét bekérjük a forráslemezt, ha még szükséges, és beolvas- 
suk a következő 169 blokkot a tárba, majd kiírjuk a céllemezre. A teljes lemez átmásolás négy 
menetben Zajlik le. 

A közvetlen elérésű file olvasását és írását kivéve a program BASIC nyelven van írva. A gépi 
kódú program ugyanis jóval gyorsabb, mint a BASIC nyelven megírt 256 lépéses GETS$ ciklus. 
A gépi kódú részek miatt ez a program csak Commodore 64-en futtatható. (A 16 K bővítésű 
VC 20-nál 11-szer kellene lemezt cserélni.) 

Érdemes összevetni a kettős meghajtó másolási sebességét a VC 1541-esével. Az általunk 
közölt programnak egy teljes lemez átmásolásához kb. 20 percre van szüksége, a CBM 
4040-es pedig ugyanezt kb. 3 perc alatt hajtja végre. 

A program használata rendkívül egyszerű: az indítást követően a képernyőn megjelenített 
utasításoknak megfelelően a forráslemezt és a céllemezt kell cserélgetni. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
299 
300 
310 
320 
330 
340 
350 
360 
370 
389 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
520 
510 
5209 
530 
540 
559 
560 
570 
589 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
699 
700 
710 


rem ittkt backup tstit 

rem 

poke56,253:clr: gosub640 
open1i1,8, 15: 

dim b/(35,23) , sZ(35) ,z (7) ,a$(1) 


a$(0)-"masolat":a$(1)-—"eredeti":r-1 

ad:23£2561 gosub590 — ( 
poke25B , 0:poke251 , ad/256 

gosub5309: gosub29o 

printns" blokkot masolok.":print 

t-1:s-B 


forisrito4:tt:4:sszs:r-1:ifi-1then240 

i fr:0andi-1thengosub458: goto240 

gosub590 h . 

Poke251,ad/256:forjziítol69 

i fb/(t , s) -öthengosub570 
szsti:ifszs/(t)thentsrtti:sz0rift-s3Sóthen j-169 
next:ifrthenr:B:t-tt: szss: goto220 

next:goto510 

t:18: sz0: gosub57Oo 

nsz0:fort-1to35S: s-0 

nsznsts/(t)—-peek(adtátt) 

forj:s-1to3 

b-peek(adt4tttj) 

fori:Oto7 

b/(t,s)sb and z(i):szstri 

nexti,j 

forszs/(t)toz2z5 

b/(t,s)5-itnexts,t 

fori-Otol5 

aszpeek(adtri144ri) 

ifaC213 thenn$znitchrí(a) 

next 

i$5-chr$(peek(adt162))tchr$(peek(adt163)) 
printn$,i$:return 

print"Helyezzen be egy uj lemezt a meghajtoba" 
print"es nyomja meg a [RETURNI-t.":print:pokel98,0:close2 
geta$:ifa$c2chr$(13) then470 

printtti1,"n0:"n$","i$ 

inputti,eli eZz$ e3jesrif el then print"grive:"zelz;e2Zs;esze4"W": end 
goto6ózO 

cl1ose2:closel1: end 

rem szektor/sav 

fortzítos5 
s7(t)5s21:iftdí7thensZ(t):19:ifto224thensZ(t)5s18:ift230thensZ(t)517 
next 

fori-Ooto7Z7sz(i)s20isnext:return 
ifrthenprinttt1, "ui: "2;0;z;t:;s:sysin:return 
printt1,"b-p: "2;O:sysoutsprinttt1, "uz: "";Ozts;s:return 
close2:print"Kerem a "a$(r) "dísklemezt a meghajtoba" 
print"es nyomja meg a CRETURNJI-t!":print:poke198,0 
geta$:ifatCo2chr$(15)then610 

openi1,8,15:print$1,"i0" 

open2,8,2,"$4":return 

fori-82B to B73s:rem gepi rutin toltese 
readx:pokei,x:szstx:next 
dataléó2,2,32,198,255,160,8,32,207,255,145,250 
data200 ; 208, 248 , 2590 , 251 , 32 ,204,255,96,198,1,162 
data2Z, 32 ,2901,255,160,0,177,250,32,210,255 , 200 

dat a208, 248 ,230,251 , 32, 204 ,255, 250 ,1,96 
ifsc27312then print"hiba a data-sorokban levo adatoknal!": end 
ins928: out:849: return 
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4.1.4. Az egyes file-ok átmásolása másik lemezre 


Az alábbi programmal egyedi file-okat másolhatunk át egyik lemezről a másikra. Ez vonatko- 
zik minden file-típusra, a relatív file-ok kivételével. A relatív file-okat-olyan BASIC programmal 
másolhatjuk, amely a rekordokat egyenként beolvassa egy füzérbe, majd felírja az új file- ba; 
Az alábbi program a forráslemezről beolvassa a másolandó file-t a tárba, majd a lemezcsere 
után a tárbeli adathalmazt folyamatosan felírja a céllemezen megnyitott azonos nevű file-ba. 
Az adattároláshoz a gépben 39 kbyte áll rendelkezésre, ezzel a programmal tehát max. 166 
blokkot tartalmazó file-okat tudunk másolni. 

Hogy a másolás gyorsabb legyen, az adatok beolvasását és visszaírását egy kis gépi program 
végzi, amelyet DATA sorokban helyeztünk el. 

A program kezelése nagyon egyszerű, futtatás közben csak az általa adott utasításokat kell 
betartani, azaz először a forrás-, majd a céllemezt kell az egységbe behelyezni. 


P. 48. 


100 print"W":poke56, 12:cir 

110 gosub 280 

120 input"fffile nev: ";n$ 

150 print"§file tipus (s,p,u):" 

140 LEVESZ Vg ánat sa Xipvandt sz sss then140 
159 printt$:print 

169 print"kerem az eredeti lemezt!" 
179 print"CRETURNJ-ra indul !!!":print 
180 geta$:ifa$C-chr$(13)then 180 

199 open2,8B,2,"O:"-4n$r","4t§ 

28090 poke3,O:poke4,12:sysB66 


210 close2 
220 print"kerem a cel lemezt!" 
2360 print" CRETURNJ-ra indul !!!":print 


2408 getas:ifa$Cochr$(13)then240 

250 open2,8,2,"Oz"tnát" Tatár", w" 

260 poke3,D:poke4,12: sysB2B 

270 close2:end 

289 foriz828to898 

2960 readx:pokei ,x:szstx:next 

300 data162,2,32,201,255,198,1,160,0,56,165,5 

319 data229,5,165,4,229,6,176,13,177,3,32,210 

320 data255,250,3,208,236,230,4,208,232,250,1,76 
339 data20904,255,162,2,532,198,2535,160,0,32,297 ,255 
349 datal145,3,230,3,208,2,2530,4,36,144,80,241 

350 datal165,3,133,5,165,4,133,6,76,204,255 

360 ifsC2B6ó34 thenprint"hiba a data-sorokban levo adatoknal ! ! ! ": end 
370 return 


4.1.5. A tartalomjegyzék beolvasása BASIC programból 


Gyakran előfordul, hogy egy BASIC program a felhasználótól bekéri a feldolgozandó file 
nevét. Ha ezt a felhasználó elfelejtette, fel kell függesztenie a program futását, be kell töltenie 
a tartalomjegyzéket, a file kiválasztása után újra be kell töltenie a programot, majd azt újra 
el kell indítania. Ez az eljárás kissé nehézkes. Sokkal elegánsabb megoldás, ha a tartalom- 
jegyzéket a program a felhasználó kívánságára futás közben betölti és kiírja a képernyőre. 
Erre a célra készítettük az alábbi programrészletet, amely rutinként beépíthető bármely 
adatfeldolgozó programba: 
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1090 printchr$(147) ; 

110 open15,8,1510pen2,8,2,"4" 

120 t518:s-1 

130 printtt15,"b-r"p25Ozt;zs 

140 printt15,"b-p";$2;0 

150 getH2,x$:ifx$is""thenx$nzchr$()) 
160 tzasc(x$) 

170 getH2,x$:ifxá5r""thenx$schr$(0) 
1890 szsasc(x$) 

190 forx:Oto7 

200 print$15,"b-p"s2:xxI54t5 

210 ffiáz"" 

220 forry:0tol15 

250 get$2.,x$s:ifx$z""thenxázchrá(0) 
240 ifasc(x$) schri(160)then270 

250 ffártffáőrtrx$ 

260 nextry 

270 ifa:-Othenasi:printff$;:goto290 
280 azüi:printtab(20):ffr 

290 nextx 

390 iftOVthen17Z0 

319 closeZ:closei5 

320 print"Nyomja le a CKETURNI-t !" 
330 getx$:ifxn$Cochrá$(13)then530 
3409 end: rem ha ez egy szubrutiín, akkor end helyett return 


A program beolvassa a file-neveket a lemezről, majd képernyőre írja őket. Ha az eljárást 
szubrutinként használjuk, ami a GOSUB-bal hívható, az END utasítás helyett a 340. sorba 
a RETURN utasítást kell beírni. 


4.2. A TEST/DEMO lemez segédprogramjai 

A könyv bevezető fejezeteiben (1.1.2.) ígéretet tettünk arra, hogy a demonstrációs lemezen 
levő programokat részletesen bemutatjuk. Az az Olvasó, aki idáig eljutott a könyv tanulmá- 
nyozásában, egészen biztosan hasznát veszi ezeknek a segédprogramoknak. 


4.2.1. A DOS 5.1 


A DOS 5.1 leegyszerűsíti a VC 1541-es DOS kezelését. A VC 20-as és a COMMODORE 64-es 
gépekhez egyaránt használható. A DOS 5.1 betöltése a VC 20-as gépen: 


LOAD"VIC-20 WEDGE" 8 
RUN 


Ez a DOS 5.1. töltőprogramja a VC 20-hoz. Ha a DOS 5.1-et a COMMODORE 64-en akarjuk 
használni, ez az alábbi utasításokkal történhet: 


LOAD"7C-64 WEDGE" 8 
RUN 


Nézzük meg mit kínál a DOS 5.1? 
A leggyakrabban alkalmazott utasításokat szimbólumokkal rövidíthetjük. Ha például a tarta- 
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lomjegyzéket akarjuk kiírni a képernyőre, az (4$ vagy a 2 $ DOS 5.1 utasítással helyettesíthet- 
jük a LDAD-A LIST utasításokat. 
A rövidített parancsok azza! az előnnyel is járnak, hogy nem írják felül a tárbeli programot. 


A DOS 5.1 utasításai 


ÍRÁSMÓD FUNKCIÓ 

(a$ vagy 525 a tartalomjegyzék kiírása 

(aV vagy 5V a VALIDATE funkció 

MAC vagy 50. file-másolás (COPY) 

tfile vagy /file a programok betöltése 

0 vagy 2 a hibacsatorna lekérdezése és kijelzése 
XN: .. vagy 5 N:... lemezformálás 

(wlvagy 21 a lemez inicializálása 

(a R:... vagy 5 R-... egy file nevének megváltoztatása (RENAME) 
(VS... vagy 5S-... egy file törlése (SCRATCH) 


4.2.2. A COPY/ALL 


A COPY/ALL orogram egy kétlemezes másoló. Két különböző egységszámú meghajtót 
feltételez, tehát ha esetleg két 8-as egységünk van, a DISK ADDR CHANGE programmal az 
egyiket át kel! címezni. A program indítása után az alábbi üzenet jelenik meg a képernyőn: 


disk copy all im butterfield 
from unit? 8 


Válaszul azt az egységszámot kell megadni, amelyben a forráslemez van. Ha ez a 8-as 
egység, csak a RETURN billentyűt kell megnyomni. A program ekkor bekéri az egység 
meghajtószámát (egyszeres meghajtóknál mindig nulla). Ugyanígy kell beállítani a másik 
egység- és meghajtószámot is. 

Ha ez megtörtént, a program a következő kérdést teszi fel: 


want to new the output disk 
?n 


Ez a kérdés azt jelenti, hogy szükség van-e a lemez formálására vagy sem. Következő 
lépésként a jokerrel (w) kiválaszthatjuk a másolandó file-okat. Ha az összes file-t másolni 
akarjuk, mindenütt csillagot kell beírni. 

A program következő üzenete: 


hold down y or "n" key to select 


ami azt jelenti, hogy az Y vagy az N billentyűkkel dönthetünk, hogy egy file átkerüljön-e a 
céllemezre vagy sem. 

Ha a másolási folyamat közben a file-ok mögött csillagok (xw) jelennek meg, akkor sajnos 
a másolási folyamat nem volt hibamentes. 

Amennyiben az összes file nem fér el a céllemezen, vagy a "mix output disk full" (a lemez 
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tele van), vagy a "do you have a new one" (van másik lemezed?) üzenet jelenik meg. Ha a 
válasz Y, úgy beadásával a fennmaradó file-ok egy másik, már megformált lemezre kerülnek. 
A másolási folyamat befejeztével a program kiírja a lemez szabad biokkjainak számát. 


4.2.3. A DISK ADDR CHANGE program 


Ezzel a programmal átcímezhetjük az egységeinket (4-15). A program indítása után a 
szükséges meghajtóegység kivételével az összes többit kapcsoljuk ki.- Ezután először az 
eredeti, majd az új egységszámot kell megadni. A program lefutása után ismét bekapcsolhat- 
juk az összes többi meghajtóegységet. 

A program az alábbi típusú meghajtóegységek átcímzésére alkalmas: 


2031 DOS V2.6 
2040 DOS V1.1 
4040 DOS V2.1 
4040 DOS V2.7 
8050 DOS V2.5 
8050 DOS V2.7 
8250 DOS V2.7 


4.2.4. A DIR 


Ez egy kis segédprogram, amely az alábbi lehetőségeket biztosítja: 
d - a tartalomjegyzéket kiírja 
5 — ezzel a karakterrel rövidíthetjük a lemezutasításokat (pl: 2 N: TEST, KN - egy lemez 
formálása) 
ag — kilépés a programból 
s — a hibacsatorna lekérdezése. 


4.2.5. A VIEW BAM 

Ezzel a segédprogrammal a lemez blokkjainak foglaltsági térképét kérhetjük a képernyőre. 
A táblázat függőleges irányban a szektorokat, vízszintes irányban pedig a sávokat mutatja. 
A normális keresztek a szabad, a fordított keresztek a foglalt blokkokra vonatkoznak. Az 
n/a-val jelölt blokkok nem léteznek a sávon. A táblázat kiírása után a program kiírja a lemez 
nevét és a szabad blokkok számát. 


4.2.6. A CHECK DISK 


Ez a segédprogram írással és olvasással ellenőrzi a lemez blokkjait. Az aktuális blokk és az 
ellenőrzött blokkok száma megjelenik a képernyőn. 
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4.2.7. A DISPLAYT a S 


Ha érdekel bennünket a lemezen lévő blokkok felépítése, s ezt ki akarjuk íratni képernyőre 
vagy nyomtatóra, ezt a programot használjuk. A program indítása után bekéri a kívánt sávot 
és szektort. A fenti célra kényelmesebb a könyvben közölt Disk-Monitor, miután azzal a 
blokkok tartalmának módosítására és visszaírására is van lehetőség. 


4.2.8. A PERFORMANCE TEST 


Ezzel a programmal a VC 1541-es meghajtóegység mechanikáját tesztelhetjük. A program 
az összes lemezműveletet elvégzi az egységen az alábbi. sorrendben: 


1. a lemez formálása 

2. egy file megnyitása írásra 
3. az adatok beírása a file-ba 
4. a file lezárása 

5. ugyanennek a file-nak megnyitása olvasásra 
6. az adatok olvasása 

7. a file lezárása 

8. a file törlése 

9. a 35-ös sáv beírása 

10. az 1. sáv beírása 

11. a 35-ös sáv olvasása 

12. az 1. sáv olvasása 


Minden lemezművelet elvégzése után megjelenik a hibacsatorna tartalma. Így megállapíthat- 
juk, hogy volt-e hibás művelet. A teszthez célszerű érdektelen adatokat tartalmazó. lemezt 
használni, mert a tárolt adatok a program futása közben elvesznek: 


4.3. BASIC bővítések és programok a VC 1541-es készülék 
kényelmes használatához 


4.3.1. Tetszőleges hosszúságú füzérek beolvasása lemezről 


A lemezes INPUT 4 utasításnak van egy nagy hátránya: a Commodore 64-en és a VC 20-on 
nincs lehetőség olyan adatok beolvasására, amelyek 88-nál több karaktert tartalmaznak. 
Ennek az az oka, hogy a gép INPUT pufferje csak ennyi karaktert tud tárolni. Ráadásul, ha 
egy füzéren belül vessző, vagy kettőspont van, azt a gép elválasztó karakternek tekinti és Így 
a füzér fennmaradó része az INPUT lista következő változójába kerül. Ha az INPUT dt. utasítás 
csak egy 88 karakternél kisebb változót tartalmaz, a fennmaradó rész figyelmen kívül marad 
és csak a következő INPUT tt utasítás (a következő RETURN) olvassa be. 

Ha INPUT3t helyett GETdt utasítást használunk, ezek a problémák elkerülhetők, de a 
beolvasás nagyon lassú lesz. 

Az alábbi kis gépi rutinban az INPUTdt utasítást megváltoztatjuk, mégpedig úgy, hogy 
járulékos paraméterként az olvasandó karakterek számát is meg lehessen adni. A normális 
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INPUT3t utasítástól való megkülönböztetésül ezt az utasítást INPUT-nak nevezzük, amely- 
nek a formája a következő: 


INPUTe If, len, var 


Itt az If az előzőleg megnyitott file logikai száma, a len adja a beolvasandó karakterek számát, 
a var a változó, amelybe a beolvasás történik. 
A rutint a következő formában hívhatjuk: 


100 OPEN 2.8,2, "ADAT" 
110 INPUTw 2.100,A$ 


Ezzel egy 100 karakter hosszúságú füzért olvasunk be az A$-ba a megnyitott file-ból. Az 
eljárás különösen relatív file-ok esetén hasznos, ahol így pozicionálás után egy utasítással 
beolvasható a teljes rekord. A rekordot beolvasás után a MID$ utasítással kell mezőkre bon- 
tani (a 4.3.2. alfejezetben fogunk bemutatni egy egyszerű módszert a mezők előállítására). 
Az eljárás másik előnye, hogy a rekordokat nem kell lezárnunk RETURN-nel, tehát — relatív 
file-oknál — a teljes rekordhosszt használhatjuk: 


100 OPEN 1,8,15 

110 OPEN 2.82, "RELATÍV FILEL," t CHR$(20) 

120 PRINT dt 1,"P" -- CHR$(10) t CHR$(0) t CHR$(1) 
130 PRINT 4 2,712345678901234567890"; 

140 PRINT dt 1,"P"- CHR$(10) 4 CHR$(0) 4 CHR$(1) 
150 INPUT a 2,20,A$ 

160 PRINT A$ 


12345678901234567890 


Az alábbiakban közöljük a kazetta-pufferben tárolt gépi kódú program assembler-listáját és 
a gépi kódú program Commodore 64-en és VC 20-on használható BASIC töltőprogramját. 
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00001 4000 $ 
00003 099009 : 


09004 9000 ; 
09905 — 9400 ginputt 1f,hossz,a$ 

00006 0900 input 5 $85 

00997 — 90900 stern 5 $ac 

00008 0000 basvec 5 $308 

000909 09000 chrgei sz $73 

00010 00900 chrgot 5 chrgettó 

00911 0000 , 

099012 0000 ; c64 - verzio 
00913 0000 ; 

099014 0000 chkin 5 $eile 

099015 0000 basin s $e112 

009016 0000 chkcom z $acfd 

90017 0000 inter ma $a7aeg 

090018 0000 exeold 5 $a7e7 

099019 0000 inpold s: $abbf 

40020 0000 fndvar 5 $bO8Bb 

90021 0000 strres z $b475 

90022 0000 frestr s $b6a3 

09902: 0000 getbyt 5: $b79e 
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00024 

099025 
00026 
999027 
00028 
09929 
v000:o 
990531 

09032 
00035 
00034 
00035 
099036 
09937 
09038 
09937 
00940 
09041 
009042 
00042 
09044 
00945 
029046 
04947 
00048 
099049 
000530 
09051 
00052 
090353 
00054 
090055 
040056 


linett 1 


09057 
00058 
090059 
090060 
00061 
00062 
00063 
490064 
00065 
400066 
009067 
090068 
990697 
090070 
00071 
09071 


errors 


symbol 


symbol 
basin 
chrget 
fetch 
getbyt 
inter 
store 


75 b4 
02 
61 00 
49 


f8 


12 el 
62 


61 
f6 
cé ff 
ae a7 


basvec 
chrgot 
fndvar 
ínít 

okstrn 


0900 
9009 
4900 
09009 
00090 
09909 
os3c a? 
osse aW 
03409 8d 
0343 Bc 
0346 60 
0347 
0347 20 
034a c9 
oz4c FB 
034e 20 
0351 4c 
0254 29 
e357 . c? 
0359 fo 
o33b 209 
o3s5e 4c 
wvs61 209 
935364 20 
0367 20 
o3óa 209 
036d Ba 
036e 48 
36f 20 
0372 20 
03753 85 
05377 84 
0379 20 
oc code 
037c 68 
037d 209 
0380 ap 
0382 b? 
0585 91 
0387 88 
0388 19 
038a c8 
os8b 2 
o38e 7?"1 
0399 cB 
0591 c4 
0393 do 
0395 20 
0398 4c 
039b 
s 42900 
table 
value 
e112 
0975 
038b 
b79e 
a7ae 
0582 


strres 


s 
varadr 
clrch 
para 


, 
a 


init 
1dy 
sta 
sty 
rts 


s 
test 
cmp 
beg 
isr 
imp 
found 
cmp 
beg 
jsr 
imp 
okstrn 
isr 
jsr 
jer 
txa 
pha 
isr 
isr 
sta 
sty 
sr 


ine 


0308 
0979 
bogb 
oszc 
0361 
b475 


mz $49 
m $ffcc 
z $61 


z 828 

lda tiCtest 
Htotest 
basvec 
basvecti1 


jsr chrget 
Htinput 
found 
chrgot 
exeold 

jsr chrget 
tstern 
okstrn 
inpold 
inter 


jsr getbyt- 


chkin 
chkcom 
getbyt 


chkcom 
fndvar 
varadr 
varadrtl 
frestr 


strres 
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lda para,y 
(varadr ) ,y 


store 


jsr basín 
(parat1) ,y 


Para 
fetch 
ceclrch 
inter " 


chkcom 
clrch 
found 
inpold 
para 
test 
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s 


aefd 
ffcc 
0354 
abbf 
0061 
0347 


sa. PY 


sa 


van 


vissza a rutinra 


uj input rutin 


hossz 
tarolni 


valtozot keresni 


hossz 
teruletfoglalas a stingnek 


yo 


vissza az interpreter rutinba 


chkin elle 
exeold — a7e7 
frestr b6óa3 
input 0085 
stern o0ac 


varadr 09049 


100 fori-8B28to9722 

110 readx:pokei ,x: ssstxv:next 

120 data 169,71,160,3,141,8,3,140,9,3,96,532,115,9,201,155 

130 data 240,6,32,121,0,76,231,167,32,115,90,201,172,240,6,52 

140 data 191,171,76,174,167,32,155,183,32, 590 ,225,32,253,174,52,158 
159 data 183,1538,72,32,253,174,32,1397,176,153,73,1532,74,52,163,182 
169 data 194,32,117,180,160,2,185,977,9,145,73,136,16,248, 200 , 52 
170 data 18,225,145,98, 200 , 196 ,97 , 208 , 246 ,32,204 ,253,76,174,167 
1890 if sC€21i1096 thenprint"hiba a data-sorokban levo adatoknal!:end 
190 sys828:print "rendben!" 


100 for i -B28to922 

119 readg:pokei ,g: ssstg:next 

120 data 169,71,160,53,141,8,3,140,9,3,96,32,115,90,201,155 

159 data 2490,6,32,121,9,76,23531,199,32,115,9,201,172,240,6,32 

140 data 191,203,76,174,199,32,155,215,32,27,225,32,253,206,32,158 
150 data 215,138,72,32,253,206,32,159,208,1353,75,132,74,32,163,214 
160 data 104,52,117,212,160,2,185,97,9,145,73,136,16, 248, 290, 32 
170 data 15,225,145,98,200,196,97 ,208, 246, 32 ,204,255,76,174,199 
180 ifsC211442 thenprint"hiba a data-sorokban levo adatoknal ! " : end 
199 sys828:print"rendben!" 


4.3.2. Rekordok kényelmes előkészítése 


A korábbi fejezetekben részletesen ismertettük a relatív file-ok szerkezetét. Tudjuk tehát, hogy 
a relatív file rögzített hosssúságú rekordokkal dolgozik. A rekord többnyire több mezőre 
oszlik, amelyek a rekordon belül fix pozíción kezdődnek és előre meghatározott hosszúság- 
gal rendelkeznek. z 

Ha például egy új rekordot írunk a file-ba, többnyire külön inputokat használunk az egyes 
mezőkhöz. Mielőtt a teljes rekord írására kerülne sor, gondoskodnunk kell a rekord összeállí- 
tásáról. Az egyes mezők hosszúságát ellenőrizni kell. Ha egy mező hosszabb az előre 
megadottnál, a fennmaradó részt "le kell vágni". Rövidebb mezők esetén a fennmaradó részt 
üres karakterekkel kell feltölteni. 

Az alábbiakban két új BASIC utasítással ismerkedhetünk meg, amelyek a fenti feladatok 
megoldására kiválóan alkalmasak. Ezek az utasítások, melyeket gépi nyelven írtunk meg, 
tulajdonképpen BASIC bővítések, amelyeket SYS utasítással kell inicializálni ahhoz, hogy a 
későbbiekben hívhatók legyenek. 

Az első utasítás az ISTR$, amely megadható hosszúságú és megadható karakterből álló 
füzért állít elő. Pl. az 


A$-ISTR$(100," ") 
utasítás egy 100 üresjeles füzért állít elő az A$ változóban. 
A következő utasítás arra szolgál, hogy az adatmezőinket közvetlenül beírhassuk a fentiek 
szerint előállított füzérbe. Ha például a családnevet tartalmazó N$ változót az első pozíciótól 
számítva 25 karakter hosszan akarjuk elhelyezni az A$ füzérbe, utasításunk az alábbi formát 
ölti: 

MID$ (A$,1,25)—N$ 
Itt a MID$ utasítást ún. pszeudo-változóként az egyenlőségjel bal oldalán használjuk. Ekkor 
a következő történik: 


254 


Az N$ változó helyettesíti az A$ változó első 25 karakterét. Ha az N$ változó 25 karakternél 
hosszabb, a változó fennmaradó része figyelmen kívül marad. Akkor sincs baj, ha az N$ 
rövidebb, mint 25. A kitöltetlen helyeken maradnak az A$ eredeti karakterei (a mi esetünkben 
az üres jelek). Pontosan ez az, amit akartunk. . "B 

Az utasítások felhasználása egy BASIC programban: 


200 INPUT "VEZETÉKNÉV"; N$ 
210 INPUT "KERESZTNÉV"; V$ 
220 INPUT "UTCAT; S$ 
230 INPUT "HÁZSZÁM"; NR$ 
240 INPUT "VÁROS"; 

250 INPUT "IR. SZÁM"; 

260 A$—ISTR$ 94," " 


270 MID$ (A$,1,25) zN$ 
280 MID$ (A$,26,20) -V$ 
290 MID$(A$,46,20) -S$ 
300 MID$(A$,66,5) 5-NR$ 
310 MID$ (A$,71,20) -0$ 
320 MID$ (A$.91,4) -P$ 


330 PRINT dt 2, A$ 
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100 fori-51209 to 51479 

110 read x:poke iíi,z: szstx :next 

120 data169,13,160,200,141,19,3,1490,11,3,76,107 

130 data290,169,090,1533,13,32,115,9,201,33,240,6 

140 data32,121,9,76,141,174,32,115,90,201,196,240 

1509 data3,76,8,175,32,115,9,532,250,174,32,158 

160 data183,138,72,32,253,174,32,158,173,56,13,48 

170 data 12,32,170,177,165,1090,208, 36,165,101, 76, 82 
189 data200, 32,1530,1853,240,26,160, 0,177,34,1533, 3 
1909 data104, 32,125,189,168,240, 7,165,3,136,145,98 
200 data208,251,52,202,180,76,247,174,76,72,178,169 
219 datal18,169,200,141,8,3,140,9,3,96,32,115 

220 data0,201,202,240,6,32,121,90,76,231,167,532 

230 data 115,9,52,259,174,532,139,176,133,199,132,1091 
240 data1533,73,132,74,532,163,182,160,9,177,100,72 

250 data240,46,32,82,170,160,1,177,73,133,5, 200 

260 data177,73,133,6,32,2553,174,52,158,1853,158,240 
270 data 23,202,134,4,32,121,9,201,41,208,4,169 

280 data 255,208,12,32,253,174,532,158,183,138,208,3 
2909 data76,72,178B,133,3,194,56,229,4,197,3,176 

3099 data 2,133,3,32,247,174,169,178,32,255,174,32 

319 data158,173,32,16353,182,1690,2,177,100,133,81,136 
320 data 177,100,133,89,136,177,100,240,211,1977,3,176 
339 data2,133,3,165,5,24,191,4,1353,5,144,2 

340 data230,6,164,3,136,177,80,145,5,192,0,208 

359 data 247,76,174,167 

360 ifsC231128 then print"hiba a data-sorokban levo adatoknal ! ": end 
370 sys5í1200:print"Hok.." 

380 new 


090091 0400 
0000 0009 


190 as 


090004 — 0000 tt  z  $c-BOO 
00005  cBO0N chkauf - $aefa 
00006  cB00 chkzu :  $aef7 
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00007 
04908 
099009 
029010 
09011 
400012 
09013 
400014 
09015 
00016 
409917 
009018 
090919 
0992 

090921 
00022 
00023 
00924 
0002s 
00926 
00027 
00028 
09029 


229038 
090939 
00940 
00041 
00042 
00043 
00044 
00045 
00046 
00947 
290048 
00949 
00050 
092051 
00052 
009553 
00054 
00055 
00056 
0045 / 
00058 
00059 
009060 
00061 
00062 
00065 
40064 
090065 
s 

090066 
09067 
00068 
00069 
00070 
009071 
009072 


c9g00 
c890 
c9g00 
c80g0 
cB800 
cAgo 
cHg00 
cgyo 
cB00 
c800 
c800 
cg90 
cBOG 
c9g00 
cB4O 
cg00 
c800 
cB800 
cBOO 
c8009 
c800 
cB00 
cB00 
cg90 
6800 
cB80w 
c802 
cg0o4 
cB07 
cgoa 
cBOd 
cBOf 
c811 
cB8B14 
c816 
c818 
cBib 
cB8le 
cB821 
ca25 
cB825 
cB828 
cB28B 
cB828 
c82B 
cB2zb 
c82e 
c831 
c832 
cs83535 
cHó6 
c839 
cs3b 
cg3d 
c840 
c842 
c844 
c846 
c8497 


cB4c 
c84e 
c850 
c852 
cs53 
cg56 
c857 


a97 
ap 
8d 
Bc 
4c 
a9 
85 
20 
c? 
fo 
20 
4c 
4c 
ep 
f0 
4c 
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20 
20 
Ba 
40 
20 


24 
30 


ej 
2 


a5 
do 
as 
4c 
20 


£f0 
bi 
es 
68 
20 
a8B 
fO 


08 


22 


03 
[d 
c8B 


09 


00 
ae 
09 


af 


00 
ae 
b7 


ae 
ad 


bi 


c8 
b7 


b4 


chkcom z $aefd 
frmevl :  $ade9?7 
chkstr —- s$ad8f 
frestr sz $ba6b3 
yfac z $b3a2 
chrget z 3$73 
chrgot. sz chrgettó6 
getbyt zs $b79e 
integr —  $blaa 
dscrpt s 364 
stradr z §$62 
adr2 z $fb 
adr1 z $fbtr2 
leni u. 3 
len2 z 4 
anzahi s 5 
tart a. 4 
typflg : 12 
strcde z- $c4 
ilguan —-  $b248 
syntax z $af0üB 
pscode z 4b9 
vector z 3$30a 
temp a leni 
9, 

1da $Ctestin 
l1dy Htotestin 
sta vector 
sty vectort1 
imp midstr 
testin lda HO 
sta typflg 
isr chrget 
cmp Hz 

beg test2 
jsr chrgot 
mp $ae8d 
test2 jmp chrget 
cmp $strcde 
beg string 
jmp syntax 

; 

; string$ - funkcio 
string jsr chrget 
isr chkauf 
jsr getbyt 
txa 

pha 

isr chkcom 
jsr frmev1 
bit typflg 
bmi str 

ijsr integr 
1da dscrpt 
bne ilí 

1lda dscrptti1 
imp str2 

str jsr $b782 
beg $4a 

lda ($22) ,y 
str2 sta temp 
pla 

jsr $b47d 
tay 

beg str5 
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.. 


sav 


KENT SÉT] 


48 ve 


! van ? 


zarojel atugrasa 


hosszt tarolni 


string 


felso byte 
2 255 


also byte, hossz 


str beallitas, 


hossza 5 0 
elso karakter 


hosszt elohivni 
frestr 


typflg numeriku 


009073 cB859 a5 03 lda temp 


00074 cS85b BB loopi1 dey 

09075 cS85Sc 91 62 sta (stradr) ,y ; string eloallitas 
00076 c85e dB fb bne l10op1 

009077 cB86g 29 ca b4 str5 jer $b4ca; string verembe 

00078 cB6ó3 4c f7 az imp chkzu 

99079 cB86ó6 4c 48 b2 123 jmp ilguan 

400080  cB69 ; 

00081  cB869 smid$(stringvaltozo, pozicio, ,hossz)zstringkifejezes 
00092 cB869 smid$(stringvaltozo,hossz) zatringkifejezes 
00083 cB69? ; 

009084  cB697 midcod —- $ca 

00085 cB8697 execut - $308 

29086  cB69 e.-ecid -  §$a7e7 

400087  cB697 varnam z $45 

DOOBB  cB6? varadr z 4$49 

00089  cB869 dscrpt sz $64 

DO0I0  cB869 tststr sz $ad9f 

020971  c869 getvar z $DG8d 

40909092 cB6? setlstr a $aa5Z 

00093 cB8697 test z  $aeff 

009094 cB86? ez 3 

00095 0003 laenge €z tti. 

090964 0004 poston tztti 

00097 0005 varstr $t53t2 

09098 0007 gleich s $b2 

09099 0007 zeig2 s 3450 

90100 09007 nz  $FcCBOb 

001091  cBób H 

001902 cBőb a9 76 midstr lda $(-midtst 

001037 cB8ód a0w cB 1dy H$tomidtst 

00104 cBóf Bd 08 03 sta execut 

00105 cB72 Bc 09 03 sty executti1 

00106 cB75 60 rts 

00107 cB76 209 73 090 midtst jsr chrget 

090108 cCcB8B79 c? ca cmp H$midcod 3 a kod mid$ ? 
090199 cB7b fO 06 beg mid :; igen 

00119  cAZ7d 209 79 00 sr chrgot 

00111 c8BO 4c e7 a7 imp execld ; vissza a szokasos funkcio vegr 
ehajtasahoz 

00112 CcB8BB3 209 73 00 mid ösr chrget ;kovetkezo karakter 
00113 cB886 209 fa ae jsr chkauf : zarojel atugrasa 
00114 c889 209 §d bo jsr getvar ; valtozo olvasasa 
09115 cA88c 85 64 sta dscrpt 

00116 cB88Be 284 65 sty dscrpt.t1l 

09117 cS9yo 85 47 sta varadr 

00118 c892 84 4a sty varadrti 

00117 c894 208 63 ba jer frestr 

00120 c897 ag vo ldy 4O 

04012 cg? bi 64 lda (dscrpt) ,y 

00122 cB9b 48 pha 3; hossz tarolva 
00123 cB8YEc fOZ2Le beg $111 

00124 c89e 29 52 aa Jsr setstr 1 string a ram-ba 
09125 cBal ag 01 1dy ti 

00126 c38az3 bill 49 1lda (varadr) ay 

00127 cB8Bas 685 05 sta varstr ; valtozocim beallitas 
00128 cB8Ba7 c8B iny 

09127 cB8Bag bi 49 ida (varadr) ,y 

00130 cBaa 685 06 sta varstrt4t1 

090131 cBac 29 fd ae jsr chkcom 

00173 cgaf 20 9e b7 jer getbyt. ; Pozício olvasasa 
04135 cBb2 Ba txa 

00134 cBb3 fO 17 beg 3211 

00135 c8b5 ca dex 

00136 cB8Bbó 86 04 stx poston 

00137 cB8bB8B 20 79 00 isr chrgot 

091538 cBbb c? 29 cmp 441 $ ) - kífejezes vege? 
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099159 
090140 
099141 
00142 
001453 
099144 
00145 
090146 
29147 
90148 
00149 
00150 
090151 
00152 
09153 
00154 
00155 
090156 
09157 
090158 
090159 
09160 
09161 
09162 
001653 
09164 
099165 
00166 
00167 
09168 
00169 
00170 
00171 
090172 
001753 
00174 
00175 
09176 
29177 
00178 
090179 
09189 
00181 
09182 


cBbd 
cöbf 

cBci 

cgc3 
cBc6 
cBc? 
cBca 
cBcc 
cgcf 
cBdi 
c8d2 
cBd3 
c8d5 
c8d7 

cB8d9? 
cB8db 

cBde 
c8ge0 
c8es 
cB8e6 
cBe?7 
cBeb 

c8ed 
cBef 

c8gfo 
cB8f2 
cBgfa 
c8f5 
cbHt7 
c8f? 
cBfb 
cgfd 
cBfe 
c900 
c992 
c904 
c906 
c908 
c7099 
cIg0b 
c90d 
c90f 
c911 
c914 


fd ae 
Je b7 


48 b2 


f7 ae 


ff ae 
e? ad 
63 ba 


bne 
1da 
bne 
next 
sr 
txa 
bne 
4111 
store 
pla 
sec 
sbc 
cmnp 
bcs 
sta 
ok 
lda 
jsr 
jsr 
jsr 
1dy 
1da 
sta 
dey 
l1da 
sta 
dey 
l1da 
beg 
cmp 
ok1 
ele 
adc 
sta 
bcc 
inc 
1dy 
10op 
1da 
sta 
cpYy 
bne 
mp 
. end 


next 

HÉTFff 

store 

jsr -chkcom 
getbyt 


a1r5 
jmp ilguan 
sta laenge 


poston 
laenge 

ok 

1 aenge 
jsr chkzu 
$tgaleich 
test 
frmevl 
frestr 

42 
(dscerpt) ,y 
zeig2t1 


(dscrpt) ,y 
z2eig2 


(dscrpt) ,y 
1111 
laenge 

lda varstr 


poston 
varstr 
9r4 
varstrt1 
laenge 
dey 
(zeig2) ,y 
(varstr) ,y; 
4O 

10op 
$a7ae 


; maximalis hossz 


;: hossz olvasasa 


s zarojel 


j; kifejezes olvasas 


3 hiba, ha nulla 


skarakter a kifejezesbol 
atvitel a string valtozoba 


3 vissza az 


4.3.3. A spooling — közvetlen nyomtatás lemezről 


interpreter rutinba 


Ha alapgépünkhöz a lemezegységen kívül nyomtatót is csatlakoztatunk, kihasználhatjuk a 
soros busz speciális tulajdonságait. A file-okat közvetlenül átadhatjuk a lemeztárból a 
nyomtatóra anélkül, hogy ezt a folyamatot byte-ról byte-ra kellene végrehajtanunk a gép 
tárán keresztül. Ha egy tetszőleges szöveget.soros file-ként tárolunk a lemezen és ki akarjuk 
nyomtatni, arra a következő program alkalmas: 


P.52 


109 openi,4 
119 open2,8,2,"O:text":rem szoveg file 
129 getH$2,a$:ifst-b4theni140 


159 printtti1,a$;:goto120 


149 close2:closel 


159 end 
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A file végének felismeréséig a program beolvassa a karaktereket a lemezről és a nyomtatóra 
továbbítja. Ezután lezárjuk a két file-t és a program futása befejeződik. Ez egy szabályos 
adatátvitel, melynek végrehajtása BASIC programmal történik. 


Hogyan működik a közvetlen nyomtatást végző program? 

A program először megnyitja a két file-t. A nyomtatóhoz küld egy utasítást az adatok vételére 
(LISTEN), a lemezegységhez pedig az adatok továbbítására (TALK). Ettől kezdve a lemezegy- 
ség automatikusan továbbítja az adatokat a nyomtatóra egészen addig, amíg file-véget nem 
érzékel. Közben használhatjuk a gépet anélkül, hogy ez az adatátvitelt zavarná (csak a soros 
buszra kapcsolt perifériák nem használhatók ez idő alatt). 

A gyakorlatban a megoldás gépi kódú programmal történik. Amikor indítani akarjuk a 
spoolingot, a programot behívjuk és átadjuk neki a továbbítandó file nevét. A. 


SYS 828, TEXT" 


utasítás a lemezen lévő TEXT file-t kiírja nyomtatóra. Az átvitel megkezdése után a gép 
azonnal visszajelentkezik READY üzenettel. Biztosítandó, hogy a gép nincs lekötve átviteli 
célokra, kihúzhatjuk a lemezegységből kivezető buszkábelt és így a lemezegység már csak 
a nyomtatóval van összekapcsolva. A file-t, amely a nyomtatás befejeztével nyitva marad (az 
egységen a vörös színű LED világít), egy file-név nélküli SYS utasítással zárhatjuk le (termé- 
szetesen ismét vissza kell dugni az egységhez vezető kábelt). 

A SYS 828 utasítással a folyamatban lévő adatátvitelt be is fejezhetjük. Az alábbiakban 
közöljük a gépi programot, valamint a COMMODORE 64-hez és a VC 20-hoz AiKAlnAzírAL 
betöltőprogramokat. 


P.53. 
330 29 79 00 JSR — 0979 ; CHRGUT ; van még karakter? 
OZZF FO 33 BEO — 0374 $ NINCS 
g341 29 E7 FF IJSR FFE7 ; CLALL ; csatornák zárása 
0344 20 54 E2 JSR — E254 
09347 AG B7 LDX B7 ; filenév hossza 
0349 FO 38 BEN — 0383 
0348 A? 02 LDA 4HO2 
0Z34D AZ 08 LDX  40g 
0z4F Ag 02 LDY 402 
351 20 Ba FF JSR  FFBA $ SETLFS 
0354 209 CB FF JSR FFCD $ UPEN ; logikai file nyitása 
0357 A? 04 LDA $04 
0359 20 Bi FF JSR —FFB1 ; LISTEN ; parancs az egységnek 
035C 29 BE ED JSR — EDBE 
g35F AZ 02 LDX HOZ , 
0361 208 CG FF JSR — FFC6 ; CHKIN ; csatorna nyitás INPUT-nak 
0364 20 BE ED JSR — EDBE § 
0367 20 85 EE JSR — EE85 
936A 29 97 EE JSR — EE97 
OZ36D A? 00 LDA HOD 
036F 85 99 sra 99 
0371 85 98 sTa 98 
0373 60 RTS 
9374 49 01 LDA 401 
0376 85 98 sra 598 
0378 20 AE FF JSR — FFAE ; UNLISTEN ; parancs 
037B 20 AB FF JSR  FFAB ; UNTALK — ; parancs 
037E A? 02 LDA 402 
0389  4C C3 FF JMP FFC3 $ CLOSE ; logikai file zárása 
OZBZ3 4C BB AF IMF AFO8B ; ERROR ; hibaüzenet kiírása 
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100 for i -B2ZBto90i1:readg:pokei ,g:szstg:next 

110 data 32,121,0,240,51,32,231,255,532,84,226,166,18353,240,56,169 
129 data 2,162,8,160,2,52,186,255,52,192,255,169,4,532,177,255 

130. data. 52,199/257 ,162,2.532,198,255,32,199,237,532,133,238,52,151 
140 data 238,169,0,155,153,153,152,96,169,1,153,152,52,174,255,.52 
159 data 171,2353,169,2,76,195,255,76,8,175 

160 ifs.k29598 then print"hiba a data-sorokban levo adatoknal":end 
170 print"rendben" 


109 for i -B28to901 

110 readg:pokei ,g:szstg:next 

120 data 32,121,90,240,51,32,251,255,52,81,226,166,1853,240,56,169 

1308 data 2,162,8,160,2,32,186,255,32,192,255,167,4,32,177,25$ 

140 data 32,197,238,162,2,32,198,255,532,197,238,32,152,239,532,160 
150 data 228,169,9,1553,153,135,152,76,1697,1,155,152,52,174,255,532 
160 data 171, ,255,169,2,76,195,255,76,8B,297 

170 if s5cCc29642 then print"hiba a datasorokban levo adatoknal":end 
180 print"rendben" 


4.4. Az overlay (átfedés) technika - a programok láncolása 


Bonyolultabb adatfeldolgozó rendszerek kifejlesztésénél felmerülhet az a probléma, hogy 
nem tudjuk az összes adatkezelési funkciót egy programmal megoldani. Ennek több oka 
lehet — a "mindentudó" program túlságosan bonyolult, és emiatt meglehetősen lassú lenne, 
sót az is előfordulhat, hogy egy mindenre felkészített program nem fér el a tárban. Célszerű 
tehát az ilyen rendszereket menütechnikával megoldani. Így a rendszer amellett, hogy minden 
adatkezelő funkciót képes ellátni, olyan önálló programokból épül fel, amelyek egy menü- 
programból hívhatóak. Ezzel a megoldással a tárban mindig csak az éppen aktív program- 
rész tartózkodik, és egy főprogram (menüprogram) szervezi a részprogramok hívását, lánco- 
lását. 

Az ilyen rendszerek megvalósításánál a legnagyobb gondot a részprogramok tárbeli elhelye- 
zése és a köztük szükséges információcsere megoldása okozza. 

Hogyan lehet elérni, hogy az egyik program a másik változóinak értékeit használni tudja? 
Azok a megoldások, amelyeket mi az alábbiakban javasolunk, természetesen a CBM gépek 
társzervezésére épülnek, tehát elsősorban ezeken a gépeken használhatók. 

Tegyük fel, hogy egy tárban lévő program betölt egy másikat. A 2. program csak akkor tudja 
átvenni az első változóit, ha hossza kisebb vagy egyenlő, mint az őt behívó (1. számú) 
program hossza. Ha ugyanis programból adjuk ki a LOAD utasítást, akkor a régi programra 
vonatkozó programvég mutatók megmaradnak és a vezérlés az új program első sorára 
adódik. 

Nézzünk erre egy példát: 


P.54. 


109 rem program 1 

110 rem ez a program hosszabb, mint a masodik 
120 a-1000 

139 1load"pS4/2",8: rem program 2 


100 rem program 2 
119 printa 
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Ha viszont az utántöltött program nagyobb az eredetinél, a változók egy része a tárban a 
második programmal felülíródik, tartalmuk határozatlan lesz, sőt a változókhoz történő, 
értékhozzárendeléskor a programnak az első programon túlnyúló része is megrongálódhat. 
A társzervezési problémákon kívül még egy CBM sajátosságra kell figyelnünk. Ha betartjuk 
a fenti szabályt — egymásratöltésnél a tárbeli program hossza nagyobb a betöltött programé- 
nál - akkor az eredeti program változói sértetlenül megmaradnak. Ennek magyarázata, hogy 
a változóterület a BASIC program után van. A szövegkonstansok azonban nem a változóterü- 
leten vannak, ugyanis a címtáblázatban a változónévhez rendelt mutató (pointer) arra a 
programrészre mutat, ahol a változó értéket kapott. 

Tegyük fel, hogy az eredeti programban volt egy ilyen sor: 


100 A$— "SZÖVEG" 


A második program betöltésekor a 109-as sor nyilván megváltozik, de az A$ változóhoz 
rendelt tárcím marad. Az A$ tartalma tehát határozatlan. 

Ezen a problémán úgy segíthetünk, hogy a szövegkonstansokat valamilyen mesterséges 
módon áthelyezzük a változóterületre, pl. végzünk velük egy műveletet, ami nem változtatja 
meg az értéküket: 


100 A$-- "SZOVEGT 4" (egy üres füzér hozzáadásával) 


Ugyanez vonatkozik a függvénydefiníciókra, mert a mutató itt is a programterületen levő 
definícióra mutat. 


100 DEF FN A(X) — 05 £ EXP (—XxX) 


Ha a betöltött programnak nincs szüksége a hívó (tárbeli) program változóira, az átfedési 
problémákat nagyon egyszerűen megoldhatjuk. 

Mindössze annyit kell tenni, hogy közvetlenül betöltés után — a végcím ismeretében — a BASIC 
programvég mutatót az új programnak megfelelően, két POKE utasítással átállítjuk: 


POKE 45, PEEK(174): POKE 46, PEEK (175): CLR 


A CLR utasítás feltétlenül szükséges. Ennek a sornak elsőként kell elhelyezkednie az utántöl- 
tött programban. Így a változók átadása nélkül bármilyen nagyságú programokat hívhatunk 
egymás után. Egy másik, de korántsem ilyen elegáns lehetőség, hogy a töltőutasítást beírjuk 
a billentyűzet pufferébe, amely a 2. programot közvetlen üzemmódban automatikusan tölti. 
Kiírjuk a képernyőre a LOAD és a RUN utasítást és a billentyűzet-puffert, beírjuk a HOME és 
RETURN kódjait. Ezeket az utasításokat END-del kell befejezni. Az operációs rendszer ekkor 
közvetlen üzemmódban behozza a billentyűzet-puffer tartalmát, s így a LOAD és RUN 
utasítást végrehajtja, ami a program betöltését és futtatását eredményezi. Miután mindez 
közvetlen üzemmódban történik, a program végcíme automatikusan beállítódik, a változók 
törlődnek és a következő RUN utasítás a programot indítja. 

Ennek a módszernek jelentős hátránya, hogy a képernyőre kiírt töltőutasítás az esetleges 
képernyőmaszkot elrontja. 

A kivitelezés: 
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1000 printchr$(147) "load"chr$(34) "program nev2"chr$(34)",B" 
1010 print:print:print:print 

1020 print"run" 

1030 poke631,19:poke632,135:pokeS33,13 

1040 poke6ó34,13:poke635,135:poke636,13 

10950 poke198,6: end 


A gépi kódú programok utántöltése másféle technikával történik. Ha egy BASIC program gépi 
programokat használ, azokat többnyire indításkor betölti. Nem szabad megfeledkeznünk az 
alábbiakról: Mindig ügyelnünk kell arra, hogy a gépi kódú programokat abszolút jelleggel 
töltsük be, azaz meghatározott tárterületre. Ha egy program betöltésekor nem adunk meg 
másodlagos címet, az operációs rendszer feltételezi, hogy ez BASIC program, a betöltést a 
BASIC RAM kezdőcímétől kezdi (C 64-en 2049). A gépi kódú programok azonban csak akkor 
futtathatók, ha a tervezett címmel töltjük be őket, hiszen fix ugrási címeket tartalmaznak. Így 
csak a következő megoldás a helyes: 


LOAD "GEPIPROGRAM" 8,1 


Arról sem szabad megfeledkeznünk, hogy program-üzemmódos betöltéskor a vezérlés min- 
dig az első BASIC sorra adódik, és mivel az operációs rendszer minden LOAD után feltételezi, 
hogy BASIC programot töltött be, ez gépi kódú programok betöltésekor végtelen ciklushoz 
vezetne: 


100 LOAD "GEPIPROGRAM" 8,1 


Ha most kihasználjuk, hogy utántöltéskor a változók megmaradnak, az alábbiak szerint 
kiküszöbölhetjük a végtelen ciklust: 


100 IF Az O THEN A— 1 :LOAD "GEPIPROGRAM" 81 
TV els 


Ha a programot RUN-nal indítjuk, az A értéke még nulla, tehát a THEN ág hajtódik végre, 
ekkor az A értéke 1 lesz, és a gépi kódú program betöltődik. Betöltés után a program ismét 
az elejétől kezdve fut, de mivel A— 1 (értéke megmaradt!), a LOAD-ot nem hajtja végre, hanem 
áttér a következő utasításra. 

Pontosan így járhatunk el, ha több gépi kódú programot kell egymás után betölteni: 


100 IF A— Oo THEN A— 1 : LOAD "1. PROGRAM" 8,1 


1109 IF A—- 1 THEN A— 2 : LOAD "2. PROGRAM" .8,1 
120 IF A-—2 THEN A—3 : LOAD "3. PROGRAM" 8,1 


4.5. A Merge - BASIC programok összefűzése 
A programozási munkát gyakran megkönnyíti, ha az egyes részeket előre kidolgozzuk, majd 


a kész egységeket egy programmá fűzzük össze. 
Eddigi ismereteink alapján ez nem lehetséges, hiszen ha a tárban van egy programrész, és 
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lemezről betöltünk egy másikat, a második rész felülírja az elsőt. Olyan lemezművelet pedig 
nincs, ami a két lemezen levő programot , összeillesztené" . 
A feladat megoldható, de ehhez tisztában kell lennünk a BASIC programok tárbeli elhelyezé- 
sével: resé fee 

NL NH a következő programsorra mutató pointer (alsó-, felső byte) 

Ze ZrFi programsorszám (alsó-, felső byte) 

26 a TATE sorok tartalma 

00 a sor végének jelölése 

NLNH a következő programsorra mutató pointer (alsó-, felső byte) 

Va van programsorszám 

o An ADA ADRSEN sorok tartalma 

00 a sor végének jelölése 


A program végén még két nulla byte áll (a sorok végét jelző nulla byte-tal együtt három). 
A program kezdő- és végcíme a tárban a 4383-as, illetve 44-es (alsó, felső) és a 45-ös, illetve 
46-os tárcímeken helyezkedik el. 

PRINT PEEK (43) t 2564PEEK(44), 


A fenti utasítással kiírhatjuk a BASIC program kezdőcímét (ez C-64-en 2049), az alábbival 
pedig a végcímet: 


PRINT PEEK (45) 1 256aPEEK (46), 
Az utóbbi a három nulla byte utáni byte-ra mutat. 
Kihasználva, hogy minden parancs üzemmódban kiadott LOAD a BASIC programot a 43-as 
és 44-es tárcímeken talált címtől kezdve tölti, ha ezeket a címeket egy, a már tárban levő 
program végceímére állítjuk, egy esetleges második program ettől a címtől kezdve töltődik be 
(azaz pontosan az első után). 
Mindenekelőtt betöltjük az első programot a tárba, majd ezután beolvassuk a program 
végcímét: 
A — PEEK(45) t256xPEEK(46) 
Ezt az értéket 2-vel csökkentjük, hogy a program végén a két nulla byte is átíródhassék, . . 
A -— A—2 
Megjegyezzük az eredeti BASIC kezdőcímet. 
PRINT PEEK(43), PEEK(44) 
A fent kapott végcím lesz a BASIC kezdőcím. 


POKE 43, A AND 255 : POKE 44, A/256 
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Betöltjük a második programot: 
LOAD "2. PROGRAM" 8 


Visszaállítjuk az eredeti kezdőcímet (C—-64-en 2049 —256w8 -t 1, azaz az alsó byte értéke 1, a 
felső byte-e 5) 


POKE 431 : POKE 448 


majd kilistázhatjuk a programot, amely most már mindkét részt tartalmazza, tehát egy 
programként összefűzve tárolhatjuk a lemezen. 

Az eljárás során vigyáznunk kell arra, hogy a második program csak olyan sorszámokat 
tartalmazhat, amelyek nagyobbak az első program legnagyobb sorszámánál, ellenkező 
esetben ugyanis erre a sorszámra sohasem hivatkozhatunk GOTO-val, vagy GOSUB-bal. 
A programok összefűzési lehetőségét ismerve kialakíthatunk egy szubrutingyűjteményt, 
amely a leggyakrabban használt eljárásokat tartalmazza lehetőleg olyan sorszámozással, 
amit egy tervezett főprogramban általában nem használunk. 

További munkánk során az aktuális programhoz az éppen szükséges szubrutint egyszerűen 
hozzáfűzzük. 


4.6. A Disk-Monitor 


Az előző fejezetben már több szó esett erről a hasznos segédprogramról, amely C 64-en és 
VC 20-on egyaránt használható, és a haladó programozók elengedhetetlen munkaeszköze. 


Leglényegesebb funkciói: 

a lemez tartalmát — megjeleníthetjük képernyőn 
— módosíthatjuk 
— visszaírhatjuk lemezre. 


Gyakorlott programozók tudják, hogy ezeket az egyszerű lehetőségeket milyen sokrétűen fel 
lehet használni a programozói munka során 


A program gépi kódban készült. Választható funkciók: 
— egy blokk beolvasása a lemezről 
— egy blokk kiírása a lemezre 
— egy blokk kiírása a képernyőre 
— egy blokk módosítása a képernyőn 
— lemezkezelő utasítások továbbítása 
— visszatérés a BASIC-re 


A program indítása után bejelentkezik a: 


DISK-MONITOR V1.0 
ped 


majd várja utasításunkat. 
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. Vezérlő utasítások: 


1. (a — beolvassa az egység hibaüzenetét, és kiírja a képernyőre: 09, ok, 00, 00 


2. Lemezműveletek 
Ha az (a jel után beírjuk valamelyik lemezkezelő utasítás kezdőbetűjét, a program végre- 
hajtja a megfelelő műveletet. 
BASIC megfelelői: 


OPEN 15.8,15 

PRINT 15; , utasítás" 

CLOSE 15 

5 (a) I — inicializálja a lemezt 

5 (a N: lemeznév, ID — megformálja a lemezt stb. 


3. R és W -— blokk írása-olvasása 
A program legfontosabb funkciója azonban a lemez minden egyes blokkjának közvetlen 
olvasása és írása. Erre szolgál az R és a W utasítás. Az R (READ) beolvas egy blokkot a 
lemezről, a W (WRITE) felír egy blokkot a lemezre. 
Mindkét esetben meg kell adnunk a kívánt blokk hexadecimális címét, azaz a sávot és a 
szektort hexadecimális alakban. 
Írjuk be a 


5R 1201 
utasítást. A sáv és a szektor hexadecimális értékeit egy üres jellel választjuk el egymástól. 


4. M — egy blokk tartalmának megjelenítése képernyőn 
Az M vezérlőutasítás előtt természetesen végre kell hajtani egy beolvasást az R utasítással. 


DISK MONITOR 


2:M 

09 12 MM 82 T1 01 47-52 41 :.... GRA 
508 46 49 4B 20 41 49 44 2E FIK AID. 
510 53 52 43 Ag AD 00 00 00 SRC.... 
5:18 00 00 09 00 009 00 15 00 ........ 
5:20 00 00 82 13 00 48 50 4C ..... HPL 
5.28 4F 54 2E 53 52 43 Ag Ag OTSRC 
5:30 AO AO ADO AD AD 00 00 00 té. 
5:38 09 00 009 00 09 009 05 00 ........ 
:409 00 00 82 13 03 56.50 4C ..... VEL 
5:48 4F 54 2E 53 52 43 AOog AOg OT.SRC 
5.50 ADOD Ag Ag Ag AD 00 00 00 . ..... 
5:58 00 09 009 09 00 009 00 00 ........ 
2: 60 00 00 82 13.00 4D 45 AD ..... MEM 
268 2E 53 52 43 AG AD AG AG .SRC 
53:70 Ag AD AD AD A 00 00 00. fézi 
5:78 00 09 09 09 00 00 06 00 ........ 


5:B0 00 00 82 13 08 4D 45 4D ..... MEM 
5:BB 2E 4F 42 4A AG AG AG AD .OBJ 
3:90 Ag AO AO AG A 00 00 00 

2.98. 00 00 00 00 00 00 01 009 ........ 

- AD 0 00 82 19 BB 53 57 4l -.... SWA 
53:AB 50 2E 53 52 43 AD Ag Ag P.SRC 
53:BO. Ag Ag Ag Ag Ag 00 00 00 ső 
::B8 00 009 00 09 00 09 04 00 ........ 
5:CO 00 00 82 10 01 4D 41 54 ....MAT 
5.8 52 49 58 2E 53 52 43 AOo RIX.SCR 
3:D0 Ag AO Ag AG Ag 00 00 00 d 
3:D8 00 00 09 009 00 00 OD 00 ........ 
2: E0 009 09 82 13 OC 47 41 55: ..... GAU 
2:E8 53 53 .2E 54 45 53 54 AO SSITEST 
53:FO AD AO AG AD AD 00 00 00: zet 
5.F8. 00 09 09 00 00 009 01 0093 ........ 


Vizsgáljuk meg közelebbről a fenti lemezkivonatot. A kettőspont utáni első hexadecimális 
szám adja meg a blokkon belül a következő 8 byte kezdősorszámát. 00 a blokkon belüli 
első byte sorszáma, mivel a számozás 00-tól FF-ig, azaz 0-tól 255-ig tart. Ezután 8 byte 
tartalma következik (VC 20-nál 4 byte-é).iHa a byte-ok tartalma nem kinyomtatható 
karakter ($00-tó! $1F-ig és $80-tól $9F-ig terjedő ASCII kódok), a megfelelő helyen egy pont 
van. Ha ismét beütjük az M utasítást, a blokk második része jelenik meg (a teljes blokk 
ugyanis nem fér el egyszerre a képernyőn): 

Ha egy blokknak csak egy meghatározott részét akarjuk látni, a kívánt rész határait 
paraméterként beírhatjuk az M utasításba. . f 


A blokk első részének kiíratása: 

5M 00 7F £ j i 
A második rész kiíratása: é 

5M 80 FF 
(VC 20-nál negyed blokk is megjeleníthető). 


. A blokk tartalmának módosítása 
Ha bármilyen adatot meg akarunk változtatni, egyszerűen vigyük a kurzort a megfelelő 
helyre, írjuk át a megfelelő byte-ot, s nyomjuk le a RETURN-t. Hatására az adott byte-érték 
tartalmának új értéke jelenik meg, és egyidejűleg az ASCII karakter is megváltozik a jobb 
oldali részben. 
Az így megváltoztatott blokkot a W utasítással visszaírhatjuk a lemezre. Természetesen a 
lemezcímet most is hexadecimálisan kell megadni. 
A következő 


3W1201 


utasítás visszaírja a blokkot a 18-as sáv 1. szektorába, vagyis oda, ahonnan előzőleg a 
blokkot olvastuk. 
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6. Az X — visszatérés a BASIC-be 
Hatására a gép ismét kiírja a READY-t. Ha később újra használni akarjuk a Disk-Monitort, 
nem kell újra betöltenünk, mert a Commodore 64-nél a SYS 49152-vel, a VC 20-nál pedig 
a SYS 6699-nel ismét meghívhatjuk 
Mielőtt egy lemez tartalmát módosítanánk, célszerű róla egy másolatot készíteni! Ha 
ugyanis egy blokk megváltoztatása vagy írása kapcsán bármilyen hibát vétünk, elvészíthet- 
jük a lemezen eddig tárolt fontos információkat. Az is előfordulhat, hogy a lemez tartalmát 
a megszokott módon nem tudjuk többé visszaolvasni. 
Az alábbiakban közöljük a Disk-Monitor program assembler- listáját, majd ezt követik a 
Commodore 64-hez és a VC 20-hoz alkalmazható, BASIC nyelven írt töltőóprogramok. 


P. 56. 
symbol value 
adr1 0090fd adr2 0o0fb anzahl 0005 chkauf aefa 
chkcom aetd chkstr adBf chkzu aef7 chrget 0073 
chrgot 0079 dscrpt 0064 exegcild a7e7 execut 0508 
frestr baó3 frmevl ade9? getbyt b79e getvar b98d 
gleich 00b2 i1l1 cB66 illi cBcc ilguan b248 
integr biaa 1aenge 0003 leni 0005 len2 0004 
loop  ! c908 loopi c85b mid cB883 middod 00ca 
midstr cB6ób midtst cB876 next cBc3 ok c8db 
oki cBfb poston 0004 pPscode 005? setstr aa52 
start 0006 store cBcf str c849 str2 c850 
str3 cB6g stradr 0062 strcde 00c4A string cB828 
syntax afOoB temp " 000 test aeff test2 cBile 
testin cB0d tststr adeBf typflg 000c varadr 0049 
varnam: 9945 varstr 0005 vector 030a yfac b5a2 
zeig2 0050 : ; 


090001 0000 


disk monítor vc29/cbm64 
990902 0000 5 


1998 


00003 0000 prompt z $3c . É A 

900904 0000 ; ncomds z 6 :; utasitasok szama 

90005 0000 iz input s $ffcf 36 

00006 0000 talk z $ffd4 

09997 0000 . y sctalk 5 $ff96 

90008 09020 iecin — $ffa5 

090097 9000 untalk - $ffab 

00010 0000 listen — $ffbi 

090911 0000 sclist s $ff93 

090012 00090 iecout — $ffaB 

00013 00900 unlist 5 $ffae 

99014 0900 write —- $ffd2 

090015 0000 open z $ffcD 

00016 0000 close - $ffc3 

99917 00900 setpar -— $ffba 

00018 0000 setnam — $ffbd 

00919 0000 chkin :" $ffc6 : 
992020 0000 ckout 5 $ffc9 

00021 0000 clrch --.$ffcc 

090022 0000 er z 13 

00023 0000 guote sz $22 4 
099024 0000 atflig —- $d4 fa 
00025 0000 e z $200 j basic input puffer 
009026 0200 savx 9 m 41 i 
00027 0201 wrap ix s ri 

00028 0202 bad k — £ti ű 

00029 0203 von xx s X41 

009039 02094 bis kk — 41 

00031 0205 status sz $90 

00032 0205 sa z $b9 ; masodlagos cim 

00033 0205 fa z $ba ; egysegszam 

00034 0205 fnadr  — $bb 
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00035 
00036 
00037 
000538 
00039 
00040 
00041 
00042 
000453 
00044 
00045 
00946 
00047 
00048 
090049 
09050 
00051 
00052 
00053 
00054 
00055 
00456 
00957 
00058 
09959 
00960 
00061 
009062 
00065 
00064 
00065 
99066 
009067 
090068 
00069 
09970 
00071 

099072 
00073 
00074 
00075 
099076 
909077 
000798 
00079 
09080 
00081 

00082 
00083 
090084 
00085 
00086 
09087 
00089 
90087 
99090 
400091 

09072 
00093 
099974 
090095 
09096 
09097 
090098 
090099 
00100 
901091 


0205 
0205 
0205 
0205 
0205 
0205 


" 0205 


0205 
c000 
cogo 
c002 
c0o5 
c008 
co? 
coob 
co0gd 
coof 
cW11 
c0o14 
cW16 
cwi9 
cw4ic 
cole 
c020 
c022 
c024 
c026 
c029 
co2b 
c0o2e 
co31 
c032 
cos5 
c036 
c037 
c038 
co3a 
cG3d 
cozd 
cog3d 
co3 

cosf 
c042 
c045 
c048 
c049 
co4b 
c04e 
co30 
c052 
c05s3 
c053 
c056 
co5sa 
cosb 
cosc 
co5Se 
cosf 
c062 
c064 
c065 
c067 
cD6a 
cB6a 
cBóa 
co6a 
c06ób 


az 
bd 
20 
eg 
e0 
do 
az 
a? 
20 
a? 
Bd 
20 
c 
f0 
c? 
f0 
a2 
dd 
do 
Be 
bd 
48 
bd 
48 
60 
ca 
10 
4c 


85 
20 
b9 
20 
cB 
dO 
ee 
c6 
do 
60 


20 
90 
99 
cB 
c6 
60 
20 
a? 
ee 
a? 
4c 


sa 


37 


c2 
ff 


co 


02 


co 


02 
co 


co 


c0 


co 
c2 
co 


02 


co 


e2 


ca 


v6 


fnlen : $b7 
tmpc z $97 
count - B ; 
; . 
ready  - $e37b ; 
, 
X z $£cC-0D00 
init ldx 4O : 
msgout lda mesage,x 
jsr write 
inx 
cpx ttascdmp-mesage 
bne msgout 
start lIdx Her 
lda ttprompt 
sr wr two 
1lda Ho 
sta wrap 
sti jsr rdoc ; 
cmp tprompt 
beg sti 
cmp 4$20 ; 
beg sti 
s0 ldx $ncomds-1 ; 
si cmp comds,x 
bne 32 
stx savx 
lda adrh,x 
pha , 
lda adrl1,x 
pha 
rts 
s2 dex 
bpl si 
imp start 
; 
$ blokktartalom kiiras 
dm sta tmpc 
dmi1 jsr space 
1lda buffer ,y [1 
sr wrob 
iny 
bne dm2 
inc wrap 
dm2 dec tmpc 
bne dmi1 
rtse 
$ egy byte olvasasa 
byt jsr rdob 
bcc by35 $ 
sta buffer ,y $ 
by3 iny 
dec tmpc 
rts 
spac2 jsr space 
space lIda 420 ; 
ebyte $2c 
éris lda Her 
ijmp write 


byte-ok szama B/sor 
vc-29-nal 4 


vc-29-nal $e467 


program fej 


input olvasas 


atugras 


osszehasonlitas az utasitastab 


visszaugrasi cim a verembe 


a kepernyore 


egy byte a pufferbol 


— tarcimnek 


ures karakter ? 
egy byte a pufferba 


jutasitas- es cim tablazat 


; 
comds 


.-byte 


$57 
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.-byte $3a fi" 


: tartartalom atiras 


"w" "blokk irasa 


09102 
00103 
00104 
90105 
00106 
90107 
00108 
00109 
00110 
09111 

00112 
09113 
00114 
09115 
00116 
09117 
00118 
090119 
00120 
099121 
09122 
00123 
00124 
09125 
00126 
09127 
090128 
090129 
00150 
090131 

00132 
09135 
090134 
090155 
990136 
090137 
001358 
09139 
00140 
00141 
00142 
091453 
00144 
00145 
00146 
00147 
400148 
00149 
90159 
09151 

00152 
090153 
00154 
09155 
09156 
00157 
00158 
090159 
09160 
09161 
990162 
001635 
09164 
90165 
90166 
00167 
00168 


c06c 
cW0ód 
c06e 
cu6f 
cb70o 
c071 
c072 
c073 
c074 
cw075 
c076 
c077 
c078 
c079 
co7a 
cWg7b 
c07c 

c07e 
cwB81 

c082 
c485 
co8B8 
co8a 
coBc 
coBf 

c091 

c094 
c097 
cW99 
cogb 
c09e 
cgao 
cas 
cga6 
c0ga97 
cgac 
c0gad 
cobo 
cob3 
cob5 
cob8 
cOGbb 
égbe 
c0ci 
cWci 

coca 
c0c6 
coc7 
cc? 
cXOcb 
coce 
c0di 
c0da 
cWd6 
cd? 
cüdc 
codc 
code 
cüdd 
c0Ode 
codrf 
cWep 
cXel 
c0ge4 
c4e5 
cWe6 
c0geB 


ez 


20 
20 


85 


0f 
fa 


c2 


co 


-byte 
.-byte 
.-byte 
.-byte 
adrh 
.-byte 
-byte 
.-byte 
.byte 
.byte 
adr1l 
"byte 
-byte 
.-byte 
-byte 
.byte 
dsplym 
sty 
dey 
sty 
jer 
cmp 
beg 
jer 
bec 
sta 
jsr 
cmp 
beg 
jsr 
bcc 
sta 
dspi1 
dsp2 
jsr 
tya 
jsr 
isr 
lda 
isr 
jsr 
imp 
begsil 


; tartartalom atiras, 


altm 
bcc 
tay 
1da 
sta 
jsr 
as 
jar 
bne 
jer 
imp 
s 


, 
wrob 
lsr 
lser 
lsr 
1lsr 
sr 
tax 
pla 
and 
jer 


$52 

$§4d 

140 

$58 

ebyte 7altm-1 
?Zdirekt-1 
2direkt-1 
?2Zdsplym-1 
2disk-i1 
2ready7-1l 
.byte Caltm-1 
£direkt-1 
C€Kdirekt-1 
€dsplym-1 
€disk-1 
£readyr-il 

ldy $D 

von 


bis 
í1nput 
ter 
dspi 
rdob 
dspi 
von 
input 
ter 
dspi1 
rdob 
dspi1 
bis 

ldy von 
jsr tstend 
altrit 


wrob 
space 
ttcount 

dm 

ascdmp 
dsp2 

jmp start 


jsr rdob 
begsi 


ttcount 
tmpc 
rdoc 

jar rdoc 
byt 

as 
ascdmp 
start 


pha 
a 
a 


47/1111 
ascii 
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blokk olvasasa 
kiiras a kepernyore 
disk utasitas 
kilepes 


Xxo37 


startcim olvasas 


; vegcim olvasas 


; cim 

$; vc-29-nal kimarad 
3 B, vagy 4 

:; kiiratas 
sfeltetlen ugras 


cím es adat olvasas 


:cim olvasas 


s:byte-ok szama 


; vc-20-nal kihagyni 


; ascii kodra 


00169 
09170 
00171 

09172 
090173 
099174 
090175 
09176 
09177 
00178 
090179 
00187 


99181. 


09182 
voi8s 
99184 
00185 
99186 
090187 

99188 
990189 
09199 
09191 

99192 
09195 
090194 
090195 
09196 
09197 
949198 
09199 
090200 
090201 

090202 
00205 
002094 
00205 
099206 
00207 
092098 
00209 
99210 
09211 

00212 
00213 
00214 
09215 
090216 
090217 
099218 
00219 
090220 
00221 

090222 
00225 
090224 
00225 
00226 
09227 
990228 
09229 
09250 
00251 
00252 
00233 
00234 
09255 


cXgeb 
cgeb 
c0gec 
c0Ged 
cbfo 
c0fi 
c0f4 
cofr5 


1c0£f7 
.c0f9 


cofb 
c0gfd 
cbfe 
c0ofe 
c10w 
ciíi03 
c106 
c1í08 
c1iga 
ci0gd 
cioDf 

ci11 

eligz 
c112 
cií13 
c1i116 
c117 
c118 
c119 
cila 
ciid 
c120 
cií125 
c126 
chag7 
c128 
cií12a 
ciíi2b 
c12d 
cií2e 
c1í130 
c1i1352 
ciís3 
c136 
c138 
ci3a 
ciíisb 
cí3c 
ciíi3f 

cíi3f 

cií3f 

c142 
c1a494 
c146 
c148 
c14a 
c14d 
ci4f 
cií51 
c154 
c1í156 
c1i158 
c15b 
cií5e 
c160 
c162 
cíós 


48 
Ba 
20 
68 
4c 
18 
69 
90 
69 
69 
60 


a? 
Bd 
20 
c? 
do 
20 
cg? 
do 
18 


60 
20 
ga 
ga 
ga 
ga 
B8d 
20 
20 
0d 
38 
60 
cg 
08 
29 
28 
709 
69 
60 
20 
c? 
do 
68 
68 
4c 


20 
em? 
do 
a9 
as 
209 
a97 
85 
20 
a9 
85 
20 
20 
24 
70 
20 
do 


v2 
33 


28 


02 
sz 
28 
02 


3a 


06: 


02 
08 


cf 
od 
f8 


od 


cs 

od 
27 
09 
90 
65 
08 
ba 
d4 
6f 
b9 
96 
as 
90 
05 
d2 
f4 


tf 


02 
€t 


1 


ci 


ff 


co 


ff 


co 


ff 


ff 
ff 


ff 


3 karakter az x-be, 


wtwo 
txa 
jar 
pla 
jmp 
ascii 
adc 
bcc 
adc 
asci 
rts 


pha 
write 


write 
clc 

HEf6 
asci 

Hó 

adc tása 


a-ba 


; hexbyte olvasasa a-ba 


rdob 
sta 
isr 
rdobi 
bne 
sr 
cmp 
bne 
éld 


lda §0 
bad 

rdoc 

cmp H$2D 
rdob2 
rdoc 
4320 
rdob3 


sr hexit 
a 

a 

a 

a 

bad 

rdoc 

jsr hexit 
bad 


cmp t$í3a 
4/1111 


hex0z 

48 

rts 

jsr input 
ter 
hex09 


start 


support 
jsr input 
ter 
dskcmd 
no 
status 
ör11 
kisi 
fa 
talk 
415t$60 
sa 
sctalk 
jsr iecin 
status 
enddsk 
write 
errin 
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169 san 0 


san 


we 


1449. 


kovetkezo karakter olvasas 
cy:B 


konvertalo hex.re 


cysi 


9 .g 
err? tesi 


karakter olvasas 
ér: T 
nem, return 


igen, vissza a starthoz 


disk parancs 


st torles 


egysegszam 


sa:15 
masodlagos cim 


99236 
99237 
90238 
090239 
99240 
09241 
09242 
00243 
09244 
00245 
90246 
00247 
990248 
00249 
990250 
00251 
99252 
00253 
90254 
00255 
09256 
00257 
090258 
00259 
09260 
00261 
992562 
00263 
99264 
90265 
90266 
209267 
99268 
09269 
99270 
909271 
99272 
00273 
99274 
00275 
BZ /6 
90277 
99278 
00279 
90280 
09281 
00282 
00283 
99284 
00285 
99286 
900287 
09288 
09289 
09299 
00291 
00292 
00293 
00294 
00295 
409296 
00297 
20298 
09299 
00300 
090301 
09302 


c167 
ci6a 
ciód 
cióf 
6171 
c172 
c174 
c176 
c1/9 
c17b 
c17d 
c180 
c1i181 
c184 
c187 
c189 
cíi8b 
ci8e 
c191 
c194 
197 
c199 
ci9c 
ci9f 
cia2z 
c1a4 
c1a7 
ciaa 
cilad 
ciaf 
cibi 
cib35 
cibó 
cib8 
cibb 
cibd 
ciíicOo 
cic35 
cic4 
cic6 
6169 
cicc 
cicf 
c1i1d2 
cid4 
c1d7 
c1d? 
cidc 
cidf 
c1e0 
c1e2 
cie5 
c1i1e7 
ciea 
cied 
cifo 
c$t2 
cif5 
t1fa 
cíifb 
cife 
c201 
c204 
c207 
c20a 
c20c 
c20f 


ab 
od 
24 
1d 


08 
ba 
bi 
of 
b9 
93 


a3 
cf 
od 
16 
ae 
0od 
33 
fe 
$£5 
27 
33 
fe 
ea 
2a 
49 
00 
91 
1e 
31 
ed 
od 
c6 
00 
cf 
eg 


f7 
éc 
6e 
od 
2c 
od 
er 
00 
eg 
d2 


$£7 
cc 
32 
ed 
c9 
20 
0£ 
az 
78 
27 
28 
2a 
78 
2a 
2b 
of 
e? 
00 


Té 
co 


ff 


ff 


enddsk 
jmp 
dskcmd 
beg 
pha 
lda 
sta 
sr 
lda 
sta 
jsr 
pla 
comdot 
sr 
cmp 
bne 
jsr 
err1 
direkt 
jsr 
bcc 
sta 
jsr 


"sr 


bcc 
sta 
ijsr 
lda 
cmp 
beg 
1lda 
jsr 
1dx 
jsr 
1ldx 
dirin 
sta 
inx 
bne 
jsr 
enddir 
imp 
drwrit 
ldx 
jsr 
ldx 
dirout 
jsr 
inx 
bne 
jsr 
1lda 
jsr 
imp 
secomd 
1ldx 
lda 
jer 
stx 
sta 
lda 
ijsr 
stx 
sta 
ldx 
ijsr 
ldx 


jsr untalk 
start 

cmp. H$24 
erri1 


43 

fa 
listen 
$15t$60 
sa 
sclist 


iíisr iecout 
input 

Hcr 
comdot 
unlist 
ijmp start 
ijsr rdoc 
rdob 

erri1 
track 
rdoc 

rdob 

erri1 
sector 
opndir 
savx 

41 

drwrit 
$$51 
secomd 
his 

chkin 

40 

jsr input 
buffer ,x 


dírin 

clrch 

jsr clsdir 
start 

ijsr bufpnt 
$13 

ckout 

HO 

lda buffer ,x 
write 


dirout 
clrch 
4$52 
secomd 
enddiír 
sta comdstti 
tis 
track 
nmbasc 
track 
trackt1 
sector 
nmbasc 
sector 
sectorti 
415 
ckout 

HO 


; 


5 6 


talog 


track olvasas 


e e 


"block-read" 


pufferrpointer beallitas 


2: 


"block-write" 


00303 c211 bd 1f c2Z cmdot lda comdst,x 


09304 c214 29 d2 ff jsr write 

OG3VW5S cZ1i1/7 eB8 1nx 

90306 c2ZIB eg Od cpx tbufpnt-comdst 
090307 c2ia do f5 bne cmdot 

00308 c2ic 4c cc ff ijmp clrch 

00309 c21i1f 55 31 comdst .byte "uli:zi3 0 
00319 c227 00 track  .byte 0,0,$20 


v0o3i10 c228 00 
voziíig c229 20 


00311 c22a 00 sector .byte 0,0 
vozii1 c22b 00 

00312 c22c a2 0f bufpnt ldx $i5 

993153 c22e 29 c? ff jsr ckout 

00314 c231 a2 00 1ldx 42 

09315 c233 bd 41 c2 pntout lda buftxt,x 
vozió c236 209 d2 ff ijsr wiite 

990317 c2359 eg inx 

0031B c2Z3Sa eg 08 cpx ttopndir-—-buftxt 
090319 c23c dO f5 bne pntout 

90320 c23e 4cE cc ff imp clrch 

00321 c241 42 2d buftxt .byte "b-p 13 0" 
00322 c249 a? Of opndir lda $i15 

003235 c24b a8 tay 

005324 c24c aZ 08 " 1ldx HB 

003253 c24e 209 ba ff jsr setpar 

00326 c251 a9 00 lda 40 

099327 c253 29 bd ff jsr setnam 

O03ZB c4ZS6 ZV4 cY tt Jsr open 

09329 c259 a9? 0d 1da had éti 

00330 c25b a8 tay 

00331 c25c aZ 08 1ldx HB 

00332 c25e 20 ba ff sr setpar 

09333 c26l1 a? 01 1da hi 

00334 c263 aZ2 6d l1dx ttCcdadr 

90335 c265 ap c2 1l1dy H$odadr 

vozzó c267 209 bd ff jsr setnam 

09337 c26a 4c cp ff imp open 

00538 c26ó6d 23 dadr -byte "tt" 
00339 c26e a9 0d clsdiír lda $Hi13 

00340 c270 20 cS ff isr close 

DOZ4A1 c273 a9? Of l1da is 

09542 c275 4c c3 ff jmp close 

09343 c278 aZ 50 nmbasc ldx H$XE5D 3 0" hexa - ascii-re 
00344 c27a 38 sec 

090353345 c27b e9 0a numbi sbc tH10 

00346 c27d 909 05 bcc numb2 

090347 c27f e8 inx 

00340 c2ZBúO bO9 f? bcs numb1 

003497 c282 69 Sa numb2 adc H$39TtI1 
00350 c284 60 rts 

99351 c285 0Od mesage .byte cr 

00352 c28B6 44 49 -byte  "(disk-monitor v1.0D" 
099353 c297 a8B ascdmp tay 

00354 c298 58 sec 

09555 c299 e? 08 sbc $tcount 

00356 c29b a8B tay 

99357 c29c 29 62 cO isr space 

GOISB Cc29f a? 12 lda $i8 

00359 c2Zai 29 d2 ff ijsr write 

09360 c2a4 a6 OB ldx count 

vgo36i1 c2Z2atbt b? eg c2 ac2 lda buffer,y 
GgJ62Z c2a? 29 7f and 4$37f 

vozóz c2ab c? 20 cmp H:2O $ 
005364 c2Zad bo 04 bcs ac3 

00365 c2af a? 2e 1lda t$2e $ "e 
00366 c2bi do 053 bne ac4 


era 


09367 c2b3 b? eg c2 acs lda buffer ,y 


0236B c2b6 29 d2 ff ac4 ijsr write 
099369 c2b?9 a? DO 1da HoD 

09370 c2bb 85 d4 asta gtflg 
09371 c2bd CB iny 

99372 c2be ca dex 

99373 c2bf do ce5S bne ac2 

00374 c2ci a97 92 1l1da 4146 
09375 c2c3 4c d2 ff imp write 
00376 c2c6 ad 01 02 tstend lda wrap 
09377 c2c9 dO 86 bne endend 
00378 c2cb cc 04 02 cpy bis 

09379 c2ce bOX 0OIl bcs endend 
00380 c2d9 60 rts j 
DOOZB1 c2diíi 68 endend pla 

090382 c2d2 68B pla 

00383 c2d3 4c Od c0 imp start 
00384 c2dó 209 65 cB altrit jár ér1f 
00385 c2d9 a? 3a 1da t$3a " gé 
090586 c2db aZ 3c ldx tprompt 
099387 c2Zdd 4c eb c0 imp wrtwo 
00388 c2e0 buffer z 

003989  c2e0 . end 


symbol table 


symbol value 


a5 coce ac2 c2a6b acs c2b3 aca 
adrh c070 adrl c076 altm coci altrit 
ascdmp c297 asci cofb ascii cof4 bad 
begsi cWbe bis 0204 buffer c2ew bufpnt 
buftxt c241 by3 cw5Sb byt co53 chkin 
ckout ffe? close ffc3 clirch ffeG clsdir 
cmdot c211 comdot G3ői comds coóa comdst 
count 0008 er uggd crlf c065 dadr 
direkt c191 dirin cibd dirout c1d9 disk 
dm cn3d dmi cozsf dm2 c04e drwrit 
dskcmd ci6ód dspil c0a3 dsp2 cda6 dsplym 
enddir Si1GYy enddsk c167 endend c2di err1 
errin c15b fa Ob a fnadr DObb fnlen 
hex9g9 c1í152 hexit c128 iecin ffa5 iecout 
init cop input ffcf listen ffbi mesage 
msgout c00o2 ncomds 9996 nmbasc c278 numb1 
numb2 c282 open ffc0 opndiír c249 pntout 
prampt ovzc gtflg 09da guote 0022 rdob 
rdobil c106 rdob2 ci115 rdob3 c120 rdoc 
ready e37b s0 c024 s1 co26 s2 

sa 00b9? savx 0200 sclist ff935 sctalk 
secomd cied sector c22a setnam ffbd setpar 
spac2 cosf space c062 sti cgi19 start 
status 9990 talk ffd4 tmpc 0097 track 
tstend c2c6 unlist ffae untalk ffab von 
wrap 0201 write ffd2 wr ab cOdc wrtwa 
190 fori:49152 to 49887 

119 read x:poke i,x: szstx :next 

129 datal162,0,189,133,194,32,210,255,252,224,18,208 

139 data245,162,13,169,62,52,255,192,169,0,141,1 

1409 data2,32,51,195,291,62,240,249,201,32,240,245 

159 datal162,5,221,106,172,208,12,142,90,2,189,112 

160 data192,72,187,118,192,72,96,202,16,2536,76,15 

170 data192,135,151,32,9798,192,185,224,194,32,220,192 

180 data200,208,3,238,1,2,198,151,208,237 ,96,532 

199 data254,192,144,3,153,224,194,200,198,151,96,52 

200 data98,1972,169,3532,44,169,13,76,210,255,58,87 
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c2b6 
c2d6 
0202 
c22e 
ffc6 
c26e 
448 
c26d 
cíi3f 
cícf 
co7c 
ci8Be 
00b7 
ffaB 
c285 
c27b 
c233 
core 
c1i153 
cos 

ff96 
ffba 
cgod 
ez2y 
9203 
cXgeb 


210 data82,77,64, 88,1972,1953,193,1972,193,227,192,144 
2209 datal144,123,62,122,160,0,140,3,2,13536,140,4 

230 data2, 352,207,255,2901,13,249 ,23,32,254,192,144 
240 datai1i8,141,3,2,32,207,255,201,15,240,8,52 

250 data254,192,144,5,141,4,2,172,5352,32,198 

260 data194,52,214,194,152,32,229,192,52,98,1972,169 
270 data, 32 6151972/532,1515-4974,78,166;5192,76,135 

280 data192,52,254,172,144,248,168,16929,8,133,151,52 
270 data51,1753,532,51,193,52,853,1972,2080,248,532,151 
3090 data194,76,13,192,72,74,74,74,74,32,244,192 

S10 data170,104,41,15,32,244,1972,72,1538,52,210,255 
329 data104,7464,210,255,24,105,246,144,2,105,6,105 
339 dataS58,96,169,0,141,2,2,52,51,195,291,32 

349 data208,7,32,51,193,201,32,208,15,24,96,32 

:50 data40,193,19,19,19,10,141,2,2,532,51,193 

360 datas2,40,193,13,2,2,56,96,201,58,8,41 

379 data15,40,144,2,1095,8,96,32,20907,255,201,13 

389 data298, 248,194,194,76,13,192,32,207,255,2091,13 
399 data208,397,169,0,1533,144,32,191,1972,169,8,153 
400 data186,532,180,255,1697,111,1353,185,32,159,255,532 
410 data165,255,36,144,112,5,532,210,255,298,244 ,32 
420 data171,255,76,13,192,201,536,240,29,72,169,8 
430 datai1535,186,32,177,255,1697,111,135,1985,32,147,255 
440 data104,352,168,255,32,207 ,255,291,13,208,246,532 
450 data174,255,76,13,1972,32,51,193,32,254,192,144 
4660 data245,141,39,194,32,51,193,32,254,192,144,234 
470 data141,42,194,532,73,194,173,9,2,201,1,240 

480 data53d,169,49,532,2537,193,162,13,52,198,255, 162 
490 datag, 52,207 ,255,157 ,224,194,232, 208, 247 , 32, 204 
500 data255,52,119,194,76.13,192,32,44,194,162,13 
5310 data32,201,255,162,0,189,224,194,52,210,255 ,252 
520 data208,247,532,204,255,169,50,32,237,193,76,201 
530 data195,141,52,194,162,15,1753,39,194,32,120,194 
540 data142,39,194,141,40,194,173,42,194,32,120,194 
550 data142,42,194,141,85,194,162,15,52,291,255,162 
560 data0,189,31,194,32,210,255,232,224,13,208,245 
570 data76, 204 ,255,85,497,58,49,51,32,48,32,0 

580 datag,32,0,0,162,15,32,201,255,162,9,189 

599 data65,194,32,2109,255,232,224,8,208,245,76,204 
600 data255,66,45,BO,32,49,51,32,48,1697,15,168 

610 datal162,8,352,186,255,169,9,32,189,255,32,192 
620 data255,1697,13,168,162,8,32,186,255,169,1,162 

. 639 data199,160,194,3532,189,255,76,192,255,535,169,13 
640 data32,195,255,169,15,76,195,255,162,48,56,255 
650 data10,144,53,252,176,2497,195,58,96,13,68,73 

660 data83,75,45,77,727,78B,73 ,84,79,82,52,86 

670 data47,46,48,152,56,2353,8B,168,32,978,192,169 

680 datal8, 32,210,255,162,8,185,224,194,41,127,201 
670 data32,176,4,169,46,208,3,185,224,194,32,210 
700 data255,1697,0,133,212, 200, 202, 208 ,229,169,146,76 
710 data210,255,173,1,2,298,6,294,4,2,176,1 

720. data96,104,104,76,153,1972,32,101,1972,1697,58,162 
7309 data62,76,235,172 

7AB ifsC2904494 then print "hiba a data-sorokban levo adatoknal ! ":end 
750 sys49152 7 


109 poke55,6690 and 255: poke56,6699/256: cir 

110 for i —6690t07056 

1209 reada:pokei , d: s-stga:next 

150 data 162,9,189,164,28,3532,210,255,232,224,18,208,245,162,13,169 
149 data 62,52,7,27,1697,0,141,1,2,32,79,27,291,62,240,249 

150 data 201,52,240,245,162,5,221,149,26,208,12,142,9,2,189,146 
160 data 26,72,189,152,26,72,96,202,16,236,76,47,26,133,151,32 

170 data 1532,26,185,0,29,52,248,26, 200 ,208,3,238,1,2,198,151 

189 data 2908,257,96,32,26,27,144,3,153,9,29,290,198,151,96,32 

199 data 132,26,169,52,44,169,13,76,210,255,58,87,82,77,64, 88 
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200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
5099 
310 
329 
530 
340 
550 
560 
570 


100 
110 
1209 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
3090 
s19 
320 
330 
340 
350 
3560 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


26,27,27,26,27,228,223,175,175,157,99,192,160,90,140,3 
2,136,140,4,2,32,297,255,291,13,240,23,532,26,27,144 
18.281 ,53,2,532,207,255, 201 [135240/8 3226, 27 1445 
14154,2,172,3,2,52.227,28,52,245 28, 152/325248 26 
169,4,532,95,26,32,182,28,76,200,26,75,47 ,26,32,26 
27,144,248,168,169,4,133,151,32,79,27,32,117,26,208,248 
32,182,28,76,47,26,72,74,74,74,74,32,16,27,170, 104 
41,15,32,16,27,72,138,32,210,255,194,76,219,255,24, 105 
246,144,2,105,6,105,58,96,169,0,141,2,2,32,79,27 
291,32,208,9,32,79,27,201,32,298,15,24,964,52,68,27 

I 16 191041. 2,2, SZTÁRT SZŐ ZT JAS RB 
56,96,201,58,8,41,15,40,144,2,105,8,96,32,207,255 
291,13,208,248,194,194,756,47,26,32,297,255 ,201,13,208,39 
169,0,133,144,32,135,26,169,8B,133,186,32,180,255,169,111 
133,185,32,150,255,32,165,255,36,144,112,5,532,219, 255, 208 
244,32,171,255,76,47,26,201,36,240,29,72,169,8,133 


if s€235614 then print"hiba a data-sorokban levo adatoknal":end 
10ad"p56/4" 8: rem masodik resz behivasa 


clr:for i -7057to7422 
readg:pokei,g:szstg:next 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
dáta 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


186,32,177,255,169,111,133,185,32,147,255,104,3532,168,255,352 
297,255,201,13,208,246,32,174,255,76,47,26,76,47,26,32 
79.27, 32526, 27, 144286, 141,70. 280, 52.79 .27,52.26 527 
144,2534,141,73,28,32,104,28,17353,9,2,291,1,2490,30,169 
49,32,12,28,162,13,32,198,255,162,0,32,297,255,157,0 

29 232208 247 ,52,204,255,52,141,28,756,47 26, 32,75,28 
162,13,32,201,255,162,9,189,9,297,32,210,255, 252, 208 , 247 
32,204,255,169,59,532,12,28,76,23532,27,141,63,28,162,15 
í73.70.27a,52.Í51, 28 14270, 28. 191.71.28.175.73, 25.52 
151,28,142,73,28,141,74,28,162,15,52,201,255,162,0,189 
62,28,32,210,255,232,224,13,208,245,76 , 204 ,255 ,85,49,58 
49,51,32,48,32,9,0,32,9,09,162,15,32,291,255,162 
9,189,96,28,32,2190,255,232,224,8,208,245,76,2094,255 ,66 
45 ,80,32,49,51,32,48,169,15,168,162,8,32,186,255,169 
9,32,189,255,32,192,255,1697,13,168,162,8,52,186,255, 169 
1,162,149,160,28,32,189,255,76,192,255,35,169,13,32,195 
255,169,15,76,195,255,162,48,56,253,10,144,3,232,176,249 
195,58,76,13,68,73,83,75,45,77,79,78,73,84,79,82 
32,86,49,46,48,152,56,2533,4,168,32,132,26,169,18,32 
210,255,162,4,185,9,29,41,127,291,32,176,4,169,46,208 
3,185,9,29,32,210,255,169,9,133,212,200,202,208,229,169 
146,76,210,255,173,1,2),208,6,294,4,2,176,1,96,104 
194,76,47,26,32,135,26,169,58,162,62,76,7,27 


ifsC239469 then print"hiba a data-sorokban levo adatoknal ":end 
sy56690 
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5. FEJEZET 1 
A NAGY CBM-LEMEZEGYSÉGEK 


5.1. Az IEC busz és a soros busz 


A Commodore 64-es és VC 20-as gépekhez egy beépített soros buszon keresztül csatlakoztat- 
hatjuk a különböző perifériákat, mint pl. a VC 1541-es lemezegységet, a nyomtatót vagy a 
rajzgépet. 

A soros busz működési elve lehetővé teszi egyszerre több külső egység csatlakoztatását. 
Ahhoz, hogy működés közben egyértelműen hivatkozhassunk az egyes egységekre, az 
egységeket azonosító számokkal kellett ellátni. A lemezegység hivatkozási száma 8, a nyom- 
tatóé 4. 

Az egységhez a hivatkozási számmal hozzárendelünk egy ún. elsődleges címet az OPEN 
utasításban. 

Pl. az 


OPEN 14 


utasítással a nyomtatóhoz hozzárendeltük az 1-es elsődleges címet, azaz egy csatornát. 
Mivel egyszerre több lemezegységgel is dolgozhatunk, ezek további megkülönböztetésére 
szolgál az ugyancsak az OPEN utasításban megadott másodlagos cím. 
16 másodlagos címet használhatunk, 0-15-ig számozva, azonban ezek közül háromnak kü- 
lönleges szerepe van: 

0. — a programok betöltése 

1. — a programok tárolása 

15. — a parancs- és hibacsatorna 

A további 18-at (2—14-ig) szabadon használhatjuk adathalmazok kezelésére. 


A Commodore 64-es és a VC 1541-es egység közötti adatátvitel a soros buszon történik. 
A , soros" szó arra utal, hogy az információ bitenként, egyetlen vezetéken továbbítódik. Az 
átvitt információt azonban az alapgép is és a lemezegység is byte-onként (8 bit) dolgozza 
fel. Ahhoz, hogy a küldő és a fogadó egység között az adatforgalom során összhang legyen, 
szükség van egy további, ún. ,handshake" (kézfogás) vezetékre. 

Az adatátvitel lebonyolításában hat vonal vesz részt: 


PONT MEGJELÖLÉS 
AETR EZEKET Tar SZE SALE SEN e VTK TA SÉT OKOS EZTET] 
SRO IN 
föld 
ATN 
CLOCK 
DATA 
RESET 


900RWGNRV- 


Ha a gép adatokat kíván közölni az egységgel, az ATN vezeték 1-re állítódik. A jelet észlelve 
a soros buszon levő minden egység felfüggeszti a pillanatnyi munkáját és átveszi az érkező 
byte-ot. Az adatok bitenként érkeznek a DATA vonalon. Hogy a fogadó egységhez mikor 
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érkezik a következő bit, azt az ún. CLOCK (óra, ütem) vonal jelzi. Ha az itt átvitt byte-ban 
meghatározott egységszám nem azonos az adott egység számával, az egység figyelmen kívül 
hagyja a küldött adatokat. 

A címzett egység fogadja a következő adatot, nevezetesen az ún. másodlagos címet. Az 
egységszámmal együtt a byte maradék három bitje azt is meghatározza, hogy a kiválasztott 
egység adatokat fogadjon (LISTEN) vagy küldjön (TALK). Az utóbbi három bit értékétől 
függően megindul az adatáramlás a gép felé, vagy a géptől az egységhez. 

A RESET vonal bekapcsolás után, a soros buszon csatlakoztatott minden egységet alapálla- 
potba hozat. Az SRO IN vonalon (Service Regest) keresztül jelentik készültségi állapotukat 
az egyes egységek, pl. hogy az adatok az átvitelre készen állnak (ezt a vezetéket az alapgép 
operációs rendszere nem kérdezi le). 

Több lemezegység alapállapotban nem használható, hacsak nincsenek fizikailag átcímezve 
különböző egységszámokra. A DISK ADR CHANGE programmal , szoftveresen" átcímezhet- 
jük az egységeket, de természetesen kikapcsolás után az új egységszámok megszűnnek. 
Végleges átcímzést csak fizikailag, forrasztással lehet elvégezni. 

A soros busz elvéhez hasonló elven működnek az IEC- és az IEEE 488 buszok. A legfontosabb 


eltérés a soros buszhoz képest az, hogy a fentieken az adatok nem sorosan, hanem vér huza- 
mosan, egyszerre 8 adatvonalon áramlanak. Mivel még egy további ,handshake" nal is 
szükséges, az IEC busz egy összesen 24 eres kábellel dolgozik. Az IEEE 488-as bu : yD 
előnye a soros buszhoz képest a gyorsaság, azaz a 8 bit egyidejű átvitele. Az !E b. 
ötször gyorsabb a soros busznál: átviteli sebessége 1,8 kbyte, míg a soros busz- buta. 
Egy 10 kbyte-os program betöltése a VC 1541-en kb. 25 másodpercig tart, míg a ( - caM 


2031-es készüléken kevesebb mint 6 másodpercig. 
A sebességkülönbség mindenképpen indokolja, hogy az alapgéphez egy IEC buszt vésárol- 
junk! Az IEC busz bővítéssel az alapgéphez minden nagy CBM egységet csatlakoztathatunk. 


5.2. A CBM lemezegységek összehasonlítása 


Az alábbi táblázat összefoglalja az összes CBM lemezegység műszaki adatait. 


TÍPUS 1541 2031 4040 8050 8250 
DOS-változat(ok) 26 2.6 2.1/2.7 2.5/2:E 2:7 
Meghajtóegység 1 1 2 2 2 
Meghajtóegységenkénti fejek száma 1 1 1 1 2 
Tárkapacitás 170K 170K 340K 1.05M 2.12M 
Soros file 168K 168K 168K 521K 1.05M 
Relatív file 167K 167K 167K  183K/518K 1.04M.- 
Puffertár (kbyte) 2 2 4 4 4 
Sávok 35 35 35 7 78 
Sávonkénti szektorok 17-21 17-21 17-21 23-29 23-29 
Blokkonkénti byte-ok 256 256 256 256 256 
Szabad blokkok 664 664 1328 4104 8266 
Tartalomjegyzék és BAM sáv 18 18 18 38/39 38/39 
File-bejegyzések 144 144 144 224 224 
Átviteli sebesség (kbyte/s) 40 40 40 40 40 
Belső soros IEC buszon keresztül 0.4 1.8 1.8 1.8 1.8 
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Elérési idők (m/s): 30 30 30 ú 5 
sávról sávra / 
átlagos idő 360 360 360 125 125 
Percenkénti fordulatszám 300 300 300 300 300 


A nagy CBM lemezegységek áttekintése 


A VC 1541-es lemezegység a legkisebb tárkapacitású CBM-egység, de mindezideig az egyet- 
len készülék, amely soros buszon keresztül közvetlenül kapcsolódik a Commodore 64-hez és 
a VC 20-hoz. A funkciókat, a szerkezeti felépítést és a működési elvet tekintve azonos a CBM 
2031-es lemezegységgel. A CBM 2031-es a VC 1541-hez viszonyítva csak abban mutat 
eltérést, hogy soros busz helyett párhuzamos IEEE 488 busszal van ellátva. Ez az eltérés 
mintegy ötszörösére növeli az átviteli sebességet. Ha a CBM 2031-et a Commodore 64-hez 
vagy a VC20-hoz akarjuk csatlakoztatni, egy IEC busz-modult kell vásárolni. A CBM 2031-es 
tárformátuma teljesen kompatibilis a VC 1541-es tárformátumával. Mindkét készüléknél leme- 
zenként 170 kbyte áll rendelkezésre. A CBM 2031-es által felírt információt a VC 1541-es tudja 
olvasni, felülírni és megfordítva. Ez érvényes a sorozat következő típusára, a CBM 4040-es 
lemezegységre is. A 4040-es kettős meghajtóegység, kétszer 170 kbyte-os tárkapacitással. 
A kettős meghajtóegység előnye nemcsak a kétszeres tárkapacitás, hanem az, hogy az 
adatok egyik meghajtóegységből átvihetők a másikba. A programok és file-ok átmásolását 
a COPY utasítás segítségével valósíthatjuk meg, például az 


OPEN 1215" EGTESTSTEST" vagy a 
GOPRY. "TEST DOT "TEST", Di 


a TEST file-t azonos névvel átmásolja a 0. meghajtóegységről az 1-re. Különböző meghajtó- 
egységekről több file-t is összekapcsolhatunk a CONCAT utasítással. 

A kettős meghajtóegység legfontosabb előnye azonban mégis a teljes lemezek másolási 
lehetősége. A lemezmásolást a fentihez hasonlóan szintén egy utasítással elvégezhetjük, 
melynek hatására a lemezegység automatikusan megformálja az új lemezt, majd a másolan- 
dó lemez tartalmát sávról-sávra átmásolja a megformált lemezre. A lemezmásolás utasítása; 


OPEN 1.8,15,"D1-07 vagy 
BACKUP DO TO Dt. 


A 4040-es készüléken a másolás kevesebb mint 3 percet vesz igénybe; közben az alapgép 
tovább dolgozhat, mivel a lemezegység operációs rendszere végzi ezt a műveletet. 

A CBM 8050-es és 8250-es egységek kétszeres sűrűséggel (/double density", 77 sáv) Írják 
a lemezre az információt, következésképpen a 4040-es egységek nem kompatibilisek a 
8050/8250 egységekkel, azaz kölcsönösen nem tudják olvasni a másik által teleírt lemeze- 
ket. Vannak azonban olyan programok (pl. a COPY ALL program), amelyekkel átmásolhat- 
juk az 1541/4040-es egységek által felírt programokat és adatokat a 8050/8250-es lemezegy- 
ségekre. A 8050-es és a 8250-es egységeken a dupla írássűrűség miatt jóval több adat fér 
el, mint a kis egységeken: a 8050-es egységen 1 Mbyte, a 8250-es egységen pedig 2 Mbyte. 
A 8250-es kétszeres kapacitása abból adódik, hogy a lemezegység a lemez mindkét olda- 
lát tudja használni (/double sided"), mivel meghajtóegységenként 2-2 író/olvasófejjel rendel- 
kezik. Ahhoz, hogy relatív file esetén is kihasználhassuk a teljes kapacitást, az operációs 
rendszer ún. Super-Side-Sector-ral dolgozik, amely az egyenként 6 oldalszektor-blokkból álló 
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127 csoport mutatóit tartalmazza. Ezzel az adatszervezéssel egy relatív file (elméletileg) 23 
Mbyte-ra is kiterjedhet (a 8050-esnél a 2.7 DOS-változattól kezdődően). Az IEC buszon ke- 
resztül bármelyik lemezegység csatlakoztatható a Commodore 64-hez és a VC20-hoz, s így 
"on line" üzemben ezekkel a gépekkel is több megabyte-nyi adathalmazt dolgozhatunk fel. 
A nagy CBM egységek további előnye, hogy puffertáruk kétszer akkora, mint a kis egységeké. 
A nagyobb puffertár felhasználásával egyidejűleg öt soros file, vagy legfeljebb három relatív 
file lehet megnyitott állapotban (vagy ami ezzel egyenértékű, egyszerre két relatív és két soros 
file). 


A következő részben összehasonlítjuk az 1541/4040-es lemezformátumot a 8050/8250-es 
formátummal, rámutatunk a BAM és a tartalomjegyzék elhelyezkedésének és felépítésének 
eltéréseire. 

A 8050/8250-es formátumnál a BAM és a tartalomjegyzék a 38. és a 39. sávot használja. A 39. 
sáv 0. szektorában helyezkedik el a lemez neve és a formátum ismertetőjele. 


2:00 26 00 43 00 00 00 43 42 8§.C...CB 
53:08 4E 20 38 30 35 309 Ag AD M 8050 
2:10 Ag AD AD Ag AD Ag AG Ap 

5:18 30 31 Ag 32 43 Ag Ag AD 01 2C 


A 0. és az 1. byte tartalmazza az első BAM-blokk sáv szektormutatóját (38. sáv, 0. szektor), 
a 2. byte pedig. a formátum "C" jelölő betűjét. A 3-tól 5-ig terjedő byte-ok használaton kívül 
vannak. A 6-tól 31-ig terjedő byte-okban "Shift Space"-szel van kitöltve a lemez neve, a mi 
esetünkben a "CBM 8050". A 24. és a 25. byte tartalmazza a "01" lemezazonosítót (ID-t), a 27. 
és a 28. pedig a 2C" DOS-formátumot. 

A blokk fennmaradó része kihasználatlan. 

A BAM nem fér el egy blokkban, így a 38. sávon el van osztva; a 8050-nél a 0. és a 3. 
szektorban, a 8250-nél pedig ezen kívül 6. és 9. szektorokban is. Mivel egy sávon több szektor 
van, az egyes sávokra vonatkozó BAM-bejegyzést bővíteni kellett, a bejegyzés 5 byte-ot foglal 
le. Az első byte itt is a sávonkénti szabad szektorok számát tartalmazza, a következő byte-ok 
pedig a szabad és foglalt szektorok bittérképét tartalmazzák (0— a szektor foglalt, 1— a 
szektor szabad). 

Részletesen bemutatjuk egy lemez 38. sáv 0. szektorának tárkivonatát: 


5:00 26 03 43 00 01 33 1D FF 
2:08 FF FF 1F 1D FF FF FF IF 
5:10 1D FF FF FF 1F 1D FF FF 
518 FF 1F 1D FF FF FF 1F 1D 
5:20 FF FF FF 1F 1D FF FF FF 

" 528 1F 1D FF FF FF 1F ID FF 
2:B0 FF FF 1F 1D FF FF FF FF 
5:38 1D FF FF FF 1F 1D FF FF 

. 540 FF 1F 1D FF FF FF 1F 1D 

(548 FF FF FF 1F 1D FF FF FF 
5:50  1F 1D FF FF FF 1F 1D FF 
5:58 FF FF 1F 1D FF FF FF 1F 
5:60 ID FF FF FF 1F 1D FF FF 
2:68 FF 1F 1D FF FF FF 1F 1D 
370 FF FF FF 1F 1D FF FF FF 
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5378 1F.1D FF FF FF 1F 1D FF 
5:B0 FF FF 1F 1D FF FF FF 1F 
5:B8 1D FF FF FF 1F 1D FF FF 
590 FF 1F 1D FF FF FF 1F 1D 
5.98 FF FF FF 1F 1D FF FF FF 
5:A0  1F 1D FF FF FF 1F 1D FF 
5:AB FF FF 1F. 18 FC F3 EF 1F 
53:BO 00 00 00 00 00 00 00 00 
5:BB 00 00 00 00 00 00 00 OF 
3:CO F4 93 46 1A 18 6C FB FF 
5:CB8 1F 00 00 00 00 00 00 00 
5:D0 00 00 00 00 00 00 00 00 
3:DB 05 00 00 4D 04 1B FF FF 
5:.EO FF 07 1B FF FF FF 07 1B 
5:EB FF FF FF 07 1B FF FF FF 
53:FO 07 1B FF FF FF 07 1B FF 
5:F8B FF FF 07 1B FF FF FF 07 


A 0. és az 1. byte itt is a következő BAM-blokkra utal, ezen a lemezen a 38. sáv 3. szektorára. 
A 2. byte a formátumjelölő "C" betűt tartalmazza. A 4. byte-ban helyezkednek el azok a 
sávszámok, amelyre az adott BAM-rész vonatkozik (itt az 1-től 51-ig terjedő sávok). A 6. 
pozíciótól kezdődően találjuk az egyes sávokra vonatkozó 5 byte-os bejegyzéseket. A követ- 
kező BAM-blokk is hasonló felépítésű, a 8050-esnél az 52-től 77-ig terjedő sávokra vonatkozik 
és legfeljebb 140 byte-ot foglal le. Az utolsó BAM-blokk minden esetben az első tartalomjegy- 
zék blokkra utal: a 39. sáv 1. szektorára. 


A 8250-esnél a BAM-hoz 4 blokk szükséges. A 38. sáv 0. szektora tartalmazza az 1-től 51-ig 
terjedő sávokra, a 38. sáv 3. szektora az 52-től 100-ig terjedő sávokra, majd végül a 38. sáv 
9. szektora a 151-től 154-ig terjedő sávokra vonatkozó háttértérképet. 

A tartalomjegyzék sáv, vagyis a 39. sáv még további 28 szabad blokkot tartalmaz. Így tehát 
284 8-224 tartalomjegyzék-bejegyzés lehetséges, ellentétben az 1541/4040-nel, ahol a tarta- 
lomjegyzék-bejegyzések száma legfeljebb 144 lehet. A tartalomjegyzék felépítése az összes 
formátumnál azonos. 


Az alábbi táblázat szemléletesen mutatja be a különböző típusú egységek sáv-szektor 
felépítését: 


1541/4040 8050/8250 


Sávok 1 —17:0-20 1 —39:0-28 szektorok 
18-24 : 0—18 40-53 : 0—26 
25—24 : 0-17 54-64: 0—24 
31-35 : 0—16 65-77 : 0—22 

csak 8250: 
78-116 : 0—28 
117—130 : 0—26 
131-—141 : 0—24 
142—154 : 0—22 


Blokkok 683 2083/4186 
Szabad blokkok 664 2052/4133 280 


TOVÁBBI DATA BECKER KÖNYVEK 
A NOVOTRADE RT. KIADÁSÁBAN 


A Commodore 64 belső felépítése 


A könyv belülről világítja meg az Ön kedvenc számítógépét. Nélkülöz- 
hetetlen mindazok számára, akik a mikrogép rejtelmeinek mélyére 
akarnak ásni. A több mint 300 oldalas kötet a C 64-es minden szem- 
pontból alapos leírását adja. Teljes ROM listát tartalmaz részletes ma- 
gyarázatokkal felszerelve, így Ön kedve szerint tanulmányozhatja a 
BASIC interpreter, a kernal vagy operációs rendszer működését. 
Számos példát talál majd a gépi nyelvű programozásra és továbbiakat, 
melyek révén a programozó munkája kellemesebb lesz. 


Tippek és trükkök a Commodore 64-esen 


A kötet könnyedén elsajátítható programozási technikák és fogások 
gyűjteménye. Az egyes fejezetek többek közt grafikus programokat, ké- 
nyelmes adatbevitelt, magas szintű BASIC ismertetést, a CP/M alkal- 
mazhatóságát és számos gyakorlati megoldást tartalmaznak. Szellemes 
ötleteket kapnak Olvasóink válogatási feladatokhoz, a változók kezelé- 
séhez, a POKE-ok használatához. Mindent egybevetve, a kötet a prog- 
ramozás praktikus eszköztárának gyűjteménye. 


Gépi kódú programozás a Commodore 64-esen 


Azok számára íródott akik már nem a BASIC nyelven, hanem a gyor- 
sabb, a memóriát hatékonyabban kihasználó gépi kódban kívánnak 
programozni. A könyv kifejezetten a C-64-eshez íródott. Tanulja meg, 
hogyan működik a 6510-es mikroprocesszor a C-64-esen. A ROM ruti- 
nok hozzáférhetősége, I/O, BASIC bővítés stb. Tartalmazza 3 teljes 
program listáját: egy ASSEMBLER-ét, egy DISASSEMBLER-ét és egy 
nem mindennapi 6510 SIMULATOR-ét, mely valóban "láttatja" 
Önnel a C-64-es működését. 
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